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Implementation CODE 
Mainllnit.h 

//. 

SifndefMainlinitH 
#deflne MainUnitH 

7/ . — - 

^include <Classes.hpp> 
^include <Contro!s.hpp> 
include <StdCtrls.hpp> 
^include <Forms.hpp> 
^include <Dbtabies.hpp> 
^include <MetworkInfo.h> 
include <ShellApi.h> 
#include <ExtCtrIs.hpp> 
#include <TriceratMessaging.h> 
#include <DirTools.h> 

// 

class TMainForm : public TForm 

{ 

published: // IDE-managed Components 

TNetworklnfo *FNetworklnfo; 
TButton *CloseBtn; 
TTimer *IcaPrinterSecurity; 
TTimer ^Initialize; 

void _fastcail CloseBtnClick(TObject *Sender); 

void _fastcai! FonriCreate(TObject *Sender); 

void _fastcali FomiShow(TObject *Sender); 

void _fastcall Initializef imer(TObject *Sender); 

void "^_fastcall FormHide(TObject *Sender); 

void _fastcail FormActivate(TObject *Sender); 

void _fastcail IcaPrinterSecurityTimer(TObject *Sender); 

void_fastcalI FormClose(TObject *Sender, TCloseAction &Action); 

private: // User declarations 
AnsiString PrinterlnfoPath; 
TStringList * Local Printers; 
TStringList ^Network Printers; 
bool bClearNetworkPrinters; 
bool bSetlcaPrinterRights; 
bool DefaultPrinterSet; 
bool initializing; 
int IcaPrinterRightsDetay; . 
int StartupDelay; 

void _fastcall AddOwners(TStrings* sql); 
void _fastcall Add Local PrintersQ; 
void _fastcall AddNetworkPrinters(); 
void QnDesktoplnit(TMessage Message); 
void ClearNetworkPrinters(); 
void CleanUp.(); 

void OnQueryEndSession(TMessage Message); 
void OnEndSession(TMessage Message); 
bool GetPrinterRights(TStringList * Users); 
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public: // User declarations 

fastcail TMainForm(TComponent* Owner); 

fastcail ~TMainForm(); 

int Product! D; 
Ansi'String LogFile; 
TDirTools *DirTools; 

protected: 

BEGIN_MESSAGE_MAP 
VCL_M ESSAG E_H AN DLER(TM_D2K_INIT, TMessage, OnDesktopInit) 
VCL_MESSAGE_HANDLER(WM__ENDSESSION, TMessage, OnEndSession) 

ENDJV1ESSAGE_MAP(TForm) 

\- 
i » 

// 

extern PACKAGE TMainForm *MainForm; 

//_. 

tfendif 



MainUnit.Cpp 
^include <vcl.h> 
#pragma hdrstop 
// 



#include "Mainllnit.h" 
^include "Networklnfo.h" 
^include <PrinterControl.h> 
#inciude<RegToois.h> 
//„.. 1 

#pragmapackage(smart_init) 
#pragma link "Network! nfo" 
#pragma resource "*.dfm" 
// 



TMainForm *MainForm; 
// 



STEP 100 

fastcail TMainForm::TMainForm(TComponent* Owner) 

: TForrn (Owner) 

Session->Active = false; 
LocalPrinters = new TStringList;' 
NetworkPrinters = new TStringList; 
DefaultPrinterSet = false; 
Initializing = false; 
i - 

i 

// 

STEP 170 

_fastca 1 1 TM ai n Form : :~TMai n Form() 
{ 
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t 

delete LocalPrinters; 
delete NetworkPrinters; 

DirTooIs->WriteLog(LogFiie, "Terminating PMP Client"); 
delete DirTools; 

} 

// 



void fastcall TMainForm::AddOwners(TStrings* sql) 

{ 

AnsiString ClientName; 
AnsiString ComputerName; 
ClientName = getenv("CLlENTNAME"); 
if (ICIientName.IsEmptyO) 

ClientName = ClientName.UpperCase(); 
ComputerName = getenv("COMPUTERNAME' ! ); 

FNet\vorklnfo->C!ear(); 

sql->Add(" IN (SELECT ID FROM Owners WHERE Name = + 
FNetworklnfo->UserName + mn ); 

if (FNetwork!nfo->LocalComputerName != ("WW" + FNetworkInfo->DpmainName)) 

FNetwork!nfo->SourceServerName= FNetworkinfo->DomainControIierName; 

for (int i = 0; i < FNetworldnfo->MyGlobaIGroupCount; 

sql->Add(" OR Name= + FNetworklnfo->MyGlobalGroupNames[i] + ,,IM ); 

} 

FNetworklnfo->SourceServerName = ""; 

for (int i = 0; i < FNetworklnfo->MyLocalGroupCount; 

sq!->Add(" OR Name = + FNetworkInfo->MyLocaiGroupNames[i] + "'"); 

if (ICIientName.IsEmptyO && ClientName != ComputerName) 

sq!->Add(" OR Name = + ClientName + mH ); 
if (IComputerName.lsEmptyQ) 

sql->Add(" OR Name = + ComputerName + '""); 

sql^AddC')"); 

} 

// — 

STEP 130 

void fastcall TMainForm::AddLoca]Printers() 

{ 

TQuery* quei-y ~ new TQuery(NULL); 
int i; 

AnsiString SourceServer; 
AnsiString Monitor; 
AnsiString Port; 
AnsiString FileName; 
AnsiString PrinterName; 
AnsiString NewPrinterName; 
AnsiString ClientName; 
bool isDefault; 
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TStringList * Messages = new TStringList(); 
TStringList *Users = new TStringList(); 

GetPrinterRights(Users); 

ClientName = getenv("CLIENTNAME"); 
if (!ClicntName.IsEmpty()) 

CiientMame = ClientName.UpperCase(); 
else 

ClientName = FNetworkinfo->UserNarne; 
query->DatabaseName = "Tricerat PMP"; 
STEP 200 

query->SQL->Add("SELECT o.Ordinal, a.0rdinal ? p.FileName, p.Name, "); 
query->SQL->Add("p.Port, p. Monitor, p. SourceServer, a.IsDefault "); 
query->SQL->Add("FROM Owners o, AssignedLocalPrinters a, LocalPrinters p "); 
query->SQL->Add( n WHERE o.ID = a.OwnerlD AND a.LocalPrinterlD = p.lD "); 
query->SQL->Add("AND p.Disabied = False "); 
query->SQL->Add( M AND a.Owner!D "); 

STEP 210 

AddOwners(query->SQL); 

query->SQL->Add(" ORDER BY Ordinal"); 

try 
I 

STEP 220 

query->Open(); 

STEP 230 
i = -I; 

while (query-> Active && !query->Eof && query->RecordCount > ++i) 
{ 

//Add printers here. 

SourceServer = query^FieldByNameCSourceServer^AsString; 
Monitor = query->FieldByName( M Monitor n )->AsString; 
Port = queiy->FieldByName( ,, Port")->AsString; 
FileName - query->FieidByName( n FileName")->AsString; 
PrinterName = query->FieldByName("Name")->AsString; 
IsDefault = query^FieldByNameCMsDefault'VAsBoolean; 
NewPrinterName = ClientName + "#" + PrinterName; 

try 
r 

STEP 240 

//Constructor to point to local computer for drivers. 
TPrinterControl *PrinterControl = new TPrinterControl( 
PrinterlnfoPath, SourceServer); 

if (!Port.lsEmpty() && !Monitor.lsEmpty()) " 
. PrinterControl->RemapPort(Port, Monitor); 

STEP 250 

//Create the temp printer. 

if (PrinterControl->CreateLocalPrinter(FiIeName, NewPrinterName, Users)) 
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LocalPrinters->Add*(NewPrinter'Name); 
if (lsDefault && !DefaultPrinterSet) 

{ 

STEP 260 

if (PrinterControI->SetDefauitPrinter(NewPrinterName)) 
DefaultPrinterSet = true; 

} 

} 

if (0 < PrinterControI->Messages->Count) 
Messages->Add(PrinterControl->Messages->Text); 

delete PrinterControh 

catch(...) 

r 

Messages->Add("Error Creating Printer V ,n + NewPrinterName + "V"'); 

} 

query->FindNext(); 
NextQ; 

} 



catch (...) 

{ 
} 

query->CIose(); 
delete query; 

Users->CIear(); 
delete Users; 

STEP 270 

if (0. < Messases->Count) 

{ 

MessageBox(TMULL, Messages->Text.c_str(), "PMP CLient", 
MB_OK | MBJCONERROR | MB_SYSTEMMODAL); 

} 

} 

// --- 

STEP 140 

void fastcall TMainForm::AddNetworkPrinters() 

{ 

TQuery* query = new TQuery(NULL); 
int i; 

AnsiString Map; 
AnsiString PrinterName; 
AnsiString FuIIShareName; 
AnsiString Full PrinterName; 
AnsiString Argument; 
boo! lsDefault; 
DWORD dwError; 
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query->DatabaseName = "Tricerat PMP"; 



STEP 300 

query->SQL->Add("SELECT o.Ordinal, a.Ordinal, p.Name, a.Map, a.IsDefault "); 
query->SQL->Add( M FROM Owners o, AssignedNetworkPrinters a, NetworkPrinters p 
query->SQL->Add("WHERE o.ID = a.OwnerlD AND a.NetworkPrinterlD = p.lD "); 
query->SQL->Add("AND p.Disabled - False "); 
query->SQL->Add( n AND a.OwnerlD "); 

STEP 310 

AddOwners(query->SQL); 



query->SQL->Add( n ORDER BY Ordinal"); 

try 
f 

//Constructor to point to local computer for drivers. 
TPrinterControl *PrinterControl = new TPrinterControl( 
NULL, NULL); 

STEP 320 

query->Open(); 

STEP 330 

i = -l; 

while (query->Active && !query->Eof && query->RecordCount > ++i) 

{ 

//Add printers here. 

PrinterName = query->FieIdByName("Narne")->AsString; 

Map = query->FieidByName("Map")->AsString; 

IsDefault = query->FieldByName("lsDefault")->AsBoolean; 

STEP 340 

if (!AddPrinterConnection(PrinterName.c_str())) 
{ 

dwError = GetLastError(); 
AnsiString Message; 

Message = "Unable to connect to printer " + PrinterName + " \n\n"; 
Message = Message + "Error Code = " + String(dwError); 

query->FindNext(); 
continue; 

} 

FuilShareName = PrinterControl->GetPrinterShareName(PrinlerName); 
FullPrinterName= PrinterControl->GetPrinterFullName(PrinterName); 



NetworkPrinters->Add(FuIlPrinterName); 

STEP 350 

if (IsDefault 8l8l IDefaultPrinterSet) 

if (!PrinterControl->SetDefaultPrinter(FullPrinterName)) 
ShowMessage(PrinterControl->Messages->Text); 

DefaultPrinterSet = true; 

} 
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if (IMap.lsEmptyQ) 
r 

Argument - "use " + Map + " /d"; 

ShellExecute(]\!ULU "open", "net", Argumentxj>tr(), 
NULL,SW_HIDE); 

Argument = "use " + Map + " " + FulIShareName; 

SheIIExecute(NULU "open", "net", Argument.c_str(), 
NULUSW_HIDE); 

} 

STEP 360 

MessageBox(NULL, Message. c_str(), "PMPCIient", 
MB_OK | MBJCONERROR | MB_SYSTEMMODAL); 

query->FindNext(); 

Next(); 

delete PrinterControl; 

} 

catch (...) 

{ 
} 

query->CIose(); 
delete query; 

1 
i 

//. _ 



void fastcall TMainForm::C!oseBtnCIick(TObject * Sender) 

{ 

CleanUp(); 

} 

// 



void fastcall TMain Form:: Form Create(TObject *Sender) 

{ 

Form H ide(Sender); ^ 

i 
i 

II 



void fastcall TMain Form ::FormShow(TObject *Sender) 

r 

i 

TRegistry *Reg = new TRegistry; 

LogFile = String(getenv(*TEMP u )) + "WPMP.txt"; 

DirTooIs = new TDirTools(); 

ShowWindow(Application->Handle, SW_HIDE); . 

Reg->RootKey = HKEY_LOCAL ^MACHINE; 
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\f (Reg->OpenKey( n Software\\Tricerat\\PMP , \ true)) 
{ 

PrinterlnfoPath = Reg^ReadStringO'PrinterFnfo Path"); 

try 

f 
i 

bClearNetworkPrinters = Reg->ReadBool( M ClearNetworkPrinters"); 

i 

s 

catch (...) 
{ 

bClearNetworkPrinters = false; 

Reg->WriteBool(TlearNetworkPrinters n , bClearNetworkPrinters); 

} 

try 
{ 

bSetlcaPrinterRights = Reg->ReadBool( M SeticaPrinterRights"); 

catch (...) 

r 

"i. 

bSetlcaPrinterRights = false; 

Reg->WriteBool( n SetlcaPrinterRights", bSetlcaPrinterRights); 

try 
{ 

IcaPrinterRightsDelay = Reg->ReadInteger(" I caPr inter Rights Delay"); 
} - 

catch (...) 

{ 

IcaPrinterRightsDelay =15; 

Reg^WritelntegerC'IcaPrinterRightsDelay", IcaPrinterRightsDelay); 

} 

try 

StartupDelay = Reg-> Read I nteger(" Startup Dei ay"); 

} 

catch (...) 

{ 

StartupDelay = 30; 

Reg->WriteInteger( M StartupDelay'\ StartupDelay); 

} 



} 

Reg->CloseKey(); 
Reg->Free(); 

if(PrinterlnfoPath.IsEmptyO) 

{ • 

MessageBox(NULL, "Unable to Read Registry Values!", -"PMPCIient", 
MB_OK | MBJCONERROR | MB_SYSTEM MODAL); 

Close(); 

} 

if (5 < StartupDelay) 
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Initia!ize->lnterval = StartupDelay * 1000; 
else 

initialize->interval = 5000; 
DirT6ols->WriteLog(LogFile, "StartupDelay = " + String(Initialize->Interval)); 
STEP 1 10 

//This can be stopped if Desktop sends us a message. 
Initial ize->Enabled = true; 

if (bSetlcaPrinterRights) 
{ 

if (5 < IcaPrinterRightsDelay) 

IcaPrinterSecurity->IntervaI = IcaPrinterRightsDelay * 1000; 
else 

IcaPrinterSecurity->Interval = 5000; 
icaPrinterSecurity->Enabled = true; 

i 
j 

i 
j 

//_ 

STEP 160 

void TMainForm::CleanUp() 

{ 

int i; 

HWNDhWnd; 

//Wait for RegSet. 
hWnd = (HWND)l; 
while (NULL != hWnd) 

r 

hWnd = FindWindow( n TRegSetMainForm*\, NULL); 
if(NULL!=hWnd) 

SendMessage(hWnd, WM JXOSE, NULL, NULL); 

} " 

Sieep(lOO); 

} 

try 

{ 

//Constructor to point to local computer for drivers. 
TPrinterControI *PrinterControI = new TPrinterControl( 
NULL, NULL); 



. ,. while (Local Printers->Count > ++i) - 

i * - * - .... 

PrinterControl->DeleteLocalPrinter(LocaIPrinters->Strings[i]); 

} 

delete PrinterContrbl; 
i = -l; 
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while (MetworkPrinters->Count > ++i) 
{ 

DeletePrinterConnectionCNetworkPrinters->Strings[i].c_str()); 

} 

} 

catch(...) 

{ 

\ 

f 

// 

STEP 120 

void TMainForm::ClearNetworkPrinters() 



//Constructor to point to. local computer for drivers. 
TPrinterControl *PrinterControl = new TPrinterControl( 
NULL, NULL); 

PrinterControl->ClearNetworkPrinters(); . . 
delete PrinterControl; 

} 

catch(...) 

{ 
} 



void fastcall TMainForm::InitiaIizeTimer(TObject ^Sender) 

{ 

lnitialize->Enab1ed = false; 
Initializing = true; 

LogFile= String(getenv("TEMP")) + "WPMP.txt"; 
DirTools = new TDirTools(); 

try 
{ 

if (bCleai-NetworkPrinters) 

{ 

DirTools->WriteLog(LogFile, "Clearing Network Printers"); 
CIearNetworkPrinters(); 

} 

Session-> Active = true; 

DirToois->WriteLog(LogFile, "Add Local Printers"); 
AddLocalPrinters(); 
' Dirtools->WriteLog(LogFjle ? "Finished With Local Printers");' 

. DirTools->WriteLog(LogFiIe, "Add Network Printers"); 
AddNetworkPrintersOr 

DirTools->WriteLog(LogFile :i "Finished With Network Printers"); 
Session->Active = false; 
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• '} 

catch(...) 

{ 
} 

Initializing = false; 

} 

//„.„ 



void fastcall TMainForm::icaPrinterSecurityTimer(TObject *Sender) 

{ 

IcaPrinterSecurity->Enabled = false; 

try ' 
{ 

//Constructor to point to local computer for drivers. 
TPrinterControl *PrinterContro! = new TPrinterControl( 
NULL, NULL); 

PrinterControl->Set!caPrinterRights(); 
delete PrinterControl; 

v 
i 

catch(...) 

{ 
} 



void fastcall TMainForm::ForrnHide(TObject *Sender) 

{ 

ShowWindow(Application->Handle, SW_H1DE); 
BorderStyle = bsNone; 
Width = 0; 
Height =0; 

} 

//. 

void fastcall TMainForm::FormActivate(TObject *Sender) 

{- 

ShowWindow(Application->Handle, SW_HIDE); 

} 

// 



void TMainForm::OnDesktoplnit(TMessage Message) 
{ 

if (0 = Message. WParam) . 

'{ ' 

DirToo!s->Writelog(logFile, "PMP Received Message Desktop is Initializing") 

while(Initializing) 

{ 

Sleep(IOOO); 
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lnitialize->Enabled = false; 

i 

if (1 — Message.WParam) 

{ 

DirTools->WriteLog(LogFile, "PMP Received Message From Desktop to Initialize"); 
DefaultPrinterSet = false; 
Initialize->Enab!ed = false; 
I n iti al ize->l nterval = 1000; 
Initia!ize->EnabIed = true; 

i 

//-— - 

STEP 150 

void TMainForrn::OnEndSession(TMessage Message) 

{ 

DirTools->WriteLog(LogFile, "PMP Cleanup In Progress"); 
CleanUp(); 

DirTools->WriteLog(LogFiIe, "PMP Cleanup Finished"); 
Applicationr>Terminate(); 

} 

//. 



void fastcall TMainForm::FormClose(TObject *Sender, TCIoseAction &Action) 

{ 

CleanUpO; 

i 

//_ „ 



bool TMainForm::GetPrinterRights(TStringList * Users) 

{ 

TRegistry *Reg = new TRegistry(); 

if(!Users) 

Users = new TStringList(); 

Users->Clear(); 

Reg->RootKey = HKEY_LOCAL_MACHINE; 
if(Reg->OpenKey( n Sofhvare\\Tncerat\\PMP H J true)) 

if (Reg-> ValueExists("PrinterRights")) 

{ 

try 
r 

AnsiString tempString; 
BYTE *pTemp = NULL; . 
DWORD dwType = 0; 
DWORD dwSize = 0; 
int. i = 0; 

RegQueryVaIueEx(Reg->CurrentKey, "PrinterRights", 
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NULL, &dwType, pTemp, &dwSize); 

pTemp = (BYTE*)mailoc(dwSize); 
ZeroMemory(pTemp, dwSize); 

RegQueryValueEx(Reg->CurrentKey, "PrinterRights", 
NULL. &dwType, pTemp, &dwSize); 

if(0<dwSize) 
{ 

i = -i; 

while ((int)dwSize > ++i) 
{ 

ifO0' = (char)pTemp[i]) 
{ 

if (!tempString.IsEmpty()) 
Users->Add(tempString); 

tempString = ""; 



tempString = tempString + (char)pTemp[i]; 

} 

i 

i . ■ 

free(pTemp); 

} 

} 

catch(...) 

{ 

s 

else 
{ 

RegSetValueEx(Reg->CurrentKey, "PrinterRights", 
NULL, REG_MULTI_SZ, NULL, 0); 

i 

} 

Reg->CloseKey(); 
Reg->Free(); 

return true; 



PrinterControI.h 

// 

#ifndef PrinterControlH 
tfdefine PrinterControlH 

//— - — ----- - 

^include <SysUtiis.hpp> 
# include <Controis.hpp> 
^include <Classes.hpp> 
^include <Forms.hpp> 
#include <winspool.h> 
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#iric1ude <stdio.h> 
#include <iostream.h> 
^include <fstream.h> 
#inciude<5tUtils.hpp> 
#inciude <RegTools.h> 
#include ,, .A\DDK\\Inc\\\vinsplp.h n 

#defineCONTROL_FULL 1 
#deflne TEMP_BUFFER_SIZE 128000 

// 

class PACKAGE TPrinterContro! : public TComponent 
{ 

private: 

static AnsiString CleanupFilename(AnsiString Filename); 
protected: 

PRINTERJNFO_2 *SelectedPrinterInfo; 
DWORD SelectedPrinterinfoSize; 
AnsiString PrtlnfoPath; 
AnsiString PrinterName; 
AnsiString PortMonitorDescription; 
AnsiString NewPrinterName; 
AnsiString SourceServerName; 
AnsiString NewPortName; 
AnsiString New Port Monitor; 
DWORD dwDevModeSize; 

DRI VER_INFO_3 *GetRemoteDriverinfo(AnsiString ServerName, 

AnsiString DriverName); 
TStringList *CopyDriverFiles(TStringList *SourceFiIes); 
bool VaIidateDriver(AnsiString DriverName); 
boo! VaIidatePort(AnsiString PortName, AnsiString PortMonitor); 
bool ValidateMonitor(AnsiString MonitorName); 
bool PrinterSetOwnerOnlyRights(AnsiString PrinterName); 
bool PrinterSetCurrentUserOnlyRights(AnsiString PrinterName); 

bool PrinterAddAccessRights(AnsiString PrinterName, AnsiString UserName, int nAccess); 

bool WritePrinterInfo( AnsiString FileToSaveTo); 

bool ReadPrinterlnfo(AnsiString FileToReadFrom); 

bool Save Local Printer(): 

bool CreateLocalPrinter(); 

boo! SetDefaultPrinter(); 

AnsiString GetlcaClientPort(AnsiString OldPort); 

AnsiString GetPortMonitor(AnsiString PortName); 



public: 

fastcall TPrinterControl(AnsiString PathToPrinterlnfo Files, 

AnsiString SourceServerNarneForDrivers); 
fastcall ~TPrinlerControl(); r 

bool PrinterAddAccessRights(AnsiString PrinterName, TStringList *Users, int nAccess); 
bool SetDefaultPrinter(AnsiString PrinterToSetAsDefault); 
bool CreateLocalPrinter(AnsiString PrinterToCreate); 
bool CreateLocalPrinter( AnsiString PrinterToCreate, 
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A ns i S tri ng N ewPrinterToCreate); 
bool CreateLocalPrinter(ArisiString PrinterToCreate, 

AnsiString NewPrinterToCreate, TStringList *Users); 
booi SaveLocaIPrinter(AnsiString PrinterToSave, AnsiString SaveName); 
boo! SaveLocalPrinter(AnsiString PrinterToSave); 
bool RemapPort(AnsiString Port, AnsiString Monitor); 
boot PrinterPropertiesDiaIog(AnsiString PrinterName, HANDLE hWnd); 
booi DeIeteLoca!Printer( AnsiString PrinterName); 
static PRINTER_!NFO_2 *GetPrinterInfo2(AnsiString PrinterName); 
AnsiString GetStatusString(DWORD dwStatus); 
TStringList *GetLocalDrivers(); 
TStringList *GetLocalPrinters(); 
TStringList *GetNetworkPrinters(); 
TStringList *GetLocalMonitors(); 
TStringList *GetLocalPorts(); 
TStringList *GetConfigFiieList(); 

TStringList *LoadPrinterinfoFromFile( AnsiString PrinterName); 
AnsiString GetDefaultPrinter(); 

TStringList * Messages; 

booi DeIetePrinterConflg(AnsiString PrinterConfigName); 
AnsiString GetPrinterShareName(AnsiString PrinterName); 
AnsiString GetPrinterFullName(AnsiString PrinterName); 
bool ClearNetworkPrinters(); 
bool SetlcaPrinterRights(); 

bool CopyConfiguration(AnsiString Source, AnsiString Destination); 
bool SaveLocalDriver(AnsiString DriverName); 

published: 



#endif 

PrinterControl.Cpp 

//_ 

#include <vcl.h> 
#pragma hdrstop 
#pragma warn -aus 

#include "PrinterControl.h" 
# pragma pa.ckage(smartjnit) 

typedef bool (*ADDPORTEX)(LPWSTR, DWORD, LPBYTE, LPWSTR); 

//. 

// ValidCtrCheck is used to assure that the components created do not have 
// any pure virtual functions. 

// 

static inline void VaiidCtrCheck(TPrinterControI *) 

{ 

new TPrinterGontrol(NULL; NULL); 

} . 

//. 



fastcall TPrinterControl::TPrinterControI(AnsiString PathToPrinterlnfoFiles, 



FIG. 6-15 



' AnsiString SourceServerNameForDrivers) 
: TComponent(NULL) 

{ 

SelectedPrinterlnfo = new PRINTER_INFO_2; 
ZeroMemory(SelectedPrinterlnfo, sizeof[*SeiectedPrinterInfo)); 

PrtlnfoPath = PathToPrinterlnfoFiles; 

if (SourceServerNameForDri vers. IsEmptyO) 

x 

SourceServerName = "WW"; 

SourceServerName = SourceServerName + getenv("COMPUTERNAME n ); 

else if (0 == SourceServerNameForDrivers.SubString(0 ? ^ 2).AnsiCompareIC( n \\\\ n )) 
{ 

SourceServerName = "WW" + SourceServerNameForDrivers; 

} 

else 
r 

SourceServerName = SourceServerNameForDrivers; 

} 

Messages = new TStringList; 

i 

_fastcait TPrinterControl::-TPrinterControl() 

{ 

if (SelectedPrinterlnfo) 

free( Selected Printerl nfo); 
SelectedPrinterlnfo = NULL; 
Messages->Free(); 

II 

namespace Printercontrol 
{ 

void fastcall PACKAGE RegisterO 

I 

TComponentClass ciasses[l] = {_classid(TPrinterControl)}; 
RegisterComponents( n Tricerat\ classes, 0); 

} 

} 

// 

TStringList *TPrinterControl::GetLocaIDrivers~0 
{ 

TStringList *LocaiDriverList = new TStringList; 

DR1VERJNFOJ3 *InstalledDriverlnfo = new DRIVER_1NF0_3; 

DWORD InstalledDriverinfoReturned; 

DWORD dwSize; 

DWORD dwNeeded; 

inti; 

EnumPrinterDrivers(NULL, NULL, 3, (unsigned char*)lnstaiiedDriveHnfo, . 
0, &dwSize, & Installed Driver Info Returned); 

InstalledDriverlnfo - (DRi VER_INFO_3*)malloc(dwSize); 



FIG. 6-16 



2!eroMemory(lnstaIledDriverInfo, dwSize); 

if (!EnumPnnterDrivers(NUm NULL, 3, (unsigned char*)lnstaiIedDriverlnfo, 
dwSize, &dwNeeded, &InstailedDriverInfoReturned)) 

f 

x 

Messages->Add("EnumPrinterDrivers() Failed!"); 

} 

i = -i; 

LocalDriverList->Clear(); 
while ((int)lnstalledDriverlnfoReturned > ++i) 
LocalDriverList->Add(InstaIIedDriverInfo[i].pMame); 

free( 1 n stal 1 ed Dri ver I nfo) ; 
return LocalDriverList; 

} 

TStringList *TPrinterControI::GetLocalPrinters() 

r 

TStringList *Loca!PrinterList = new TStringList; 
PRINTER_lNFO_2 *InstailedPrinterInfo = new PR1NTERJNFOJ2; 
DWORD InstalledPrinterlnfoReturned; 
DWORD dwSize; 
DWORD dwNeeded; 
int i; 

EnumPrinters(PRl*NTER_ENUM_LOCAL ? NULL, 2,(BYTE*)InstalledPrinterInfo 1 
0, AdwSize, &Insta!ledPrinterlnfoReturned); 

InstalledPrinterlnfo = (PRINTER JNFO_2*)malloc(dwSize); 
ZeroMemory(InstalIedPrinterlnfo, dwSize); 

if(!EnumPrinters(PRINTER_ENUM^LOCAUNULU 2,(BYTE*)InstaIledPrinterlnfo, 

dwSize, &dwNeeded :i AlnstalledPrinterlnfo Returned)) 

f 

Messages->Add("EnumPrinters() Failed!"); 

} . 

i = -l; 

LocalPrinterList->Clear(); 
while ((int)InstalledPrinterlnfoReturned > ++i) 
LocalPrinterList->Add(InstaIledPrinterlnfo[i].pPrinterName); 

free(InstalledPrinterlnfo); 
return Local PrinterList; 

J' 

' TStringList *TPrinterControl::GetNerworkPrinters() 

TStringList *NetworkPrinterList = new TStringList; 
PRINTERJNFO_2 *InstalledP.rinterInfo = new PRINTER_1NF0_2; 
DWORD InstalledPrinterlnfoReturned; 
DWORD dwSize; 
DWORD dwNeeded; 
int i; 
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EnumPrintersCPRINTER^ENUM^CONNECTIONS^ULL, 2,(BYTE*)InstalledPrinterlnfo ) 
0, &dwSize, fclnstalledPrinterlnfoReturned); 

InstalledPrinterlnfo = (PRINTER JNFOJ*)mailoc(dwSize); 
ZeroMemory(lnstaIledPrinterlnfo, dwSize); 

if(!EnumPrinters(PRINTER_ENUM_CONNECTIONS,NULL, 2 ? (BYTE*)InstalledPrinterlnfo, 
dwSize, &dwNeeded, &InstalledPrinterlnfo Returned)) 

Message5->AddC'EnumPrintersO Failed!"); 

} 

i = -l; 

NetworkPrinterList->Clear(); 
while ((int)lnstailedPrinterlnfoReturned > ++i) 
NetworkPrinterList->Add(lnstalledPrinterlnfo[i];pPrinterName); 

free( 1 nstai ledPr interl nfo); 
return NetworkPrinterList; 

} 

AnsiStringTPrinterControI::GetDefaultPrinter() 
{ 

char szPrinter[256]; 
AnsiString DefaultPrinter; 
int nDelim; 

GetProfileString ("windows", "device", m \ szPrinter, sizeof(szPrinter)); 
DefaultPrinter = szPrinter; 

nDelim = DefaultPrinter.PosOV'); 

DefaultPrinter = DefaultPrinter.SubString( I, nDelim - 1); 

return DefaultPrinter; 

} 

TStringList *TPrinterControl::GetLocaiMonitors() 

MONITOR JNFOJ2 *pLocalMonitors = new MON1TORJNFOJ2; 

TStringList *LocalMonitors = new TStringList; 

DWORD dwSize; 

DWORD dwBytesNeeded; 

DWORD dwReturned; 

int i; 

//Get the memory needed. 

EnumMonitors(NULL : 2, NULL, 0, &dwSize ? &dwReturned); 
■ pLocalMonitors = (MONITORJNFO_2*)malloc(dwSize); 

if (!EnumMonitors(NULL. 2, (unsigned char*)pLocalMonitors,. dwSize, &dwBytesNeeded, 
&dwReturned)) 

r 

x 

Messages->Add("EnumMonitors() Failed!"); 

} 
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while ((int)dwReturned > 
LocaiMonitors->Add(pLocalMonitors[i].pName); 



free(pLocalMonitors); 
return Local Monitors; 

j 

TStringList *TPrinterControl::GetLocalPorts() 

^ PORTJNFOJ *pLocalPorts = new PORTJNFOJ ; 
TStringList *LocalPorts = new TStringList; 
DWORD dwSize; 
DWORD dwReturned; 
DWORD dwBytesNeeded; 
int i; 

EnumPorts(NULL 9 I , (unsigned char*)p Local Ports, 0, &dwSize, &dwReturned); 
pLocalPorts - (PORTJNFOJ *)malioc(dwSize); 

if (!EnumPorts(NULL, L (unsigned char*)p Local Ports, dwSize, ^dwBytesNeeded, 
&dwRetumed)) 

Messages->Add("EnumPortsO Failed!"); 

i 

while ((int)dwReturned > , 
LocalPorts->Add(pLocaIPorts[i].pName); 

free(pLocal Ports); 

- return Local Ports; 

} 

AnsiString TPrinterControl::GetPortMonitor(Ansi String PortName) 

1 PORTJNFOJ2 *pPort!nfo = new PORTJNFOJ2; 
DWORD dwBytesNeeded; 
DWORD dwSize; 
DWORD dwReturned; 
int i;- 

AnsiString MonitorName; 
AnsiString LprPortPath; 
TRegistry *Reg = new TRegisti-y; 

EnumPorts(NULL ? 2, (unsigned char*)pPort!nfo, 0, &dwSize, AdwReturned); 
pPoitlnfo = (PORT_INFO_2*)maIloc(dwSize); 

if (!EnumPorts(NULL, 2, (unsigned char*)pPort!nfo, dwSize, &dwBytesNeeded, 
&dwRetumed)) 

{ 

Messages^AddC'EnumPortsO Failed!"); 

- / 



FIG. 6-19 



i'=-l; 

while ((int)dwReturned > ++i) 
r 

if (0 — stricmp(PortName.c_strO, pPortInfo[i].pPortName)) 
MonitorName = pPortlnfo[i].pDescription; 

} 

free(pPortinfo); 

if (MonitorName.IsEmptyO) 

V 
I 

//Check for LPR Port. ■ 

Reg->RootKey = HKEYJLOCALJVIACHINE; 

LprPortPath = ,1 SYSTEM\\Cu^rentControlSet\\Contro!\\Print\V , ; 
LprPortPath = LprPortPath + "MonitorsWLPR PortWPortsW"; 
LprPortPath = LprPortPath + PortName; 

if(Reg->OpenKey(LprPortPath, false)) 
MonitorName = "LPR Port"; 

} 

Reg->CloseKey(); 
return MonitorName; 

} 



bool TPrinterControl::SetDefau!tPrinter(AnsiString PrinterToSetAsDefault) 

f 

i 

PrinterName = PrinterToSetAsDefault; 

if(!SetDefaultPrinter()) 

r 

Messages->Add("SetDefaultPrinter() Failed!"); 
return false; 

s 

return true; 

} 

bool TPrinterControI::SetDefaultPrinter() 
{ 

HANDLE h Printer; 
DWORD dwNeeded, dwReturned; 
PRINTER_INFO_2* pPrtlnfo; 
char szTemp[256]; 
AnsiStringszPort; 

//Open handle to printer. 

if(!OpenPrinter(PrinterName.c_str(),&hPrinter,NULL)) 

{ 

Messages->Add("OpenPrinter() Failed!"); 
return false; 



//Select the default printer. 
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if(NULL!=hPrinter){ 



// Get the buffer size needed 
GetPrinter(hPrinter,2,NULL,0AdwNeeded); 

pPrtInfo=(PRINTERJNFO_2*)malloc(dwNeeded); 
ZeroMemory(pPrtInfo, dwNeeded); 

//get the printer info 

GetPrinter(hPrinter,2,(unsigned char*)pPrtInfo,dwNeeded,&dwReturned); 
szPort=pPrtInfo->pPortName; 

//Set the default printer. 
sprint^szTemp/^/os.WINSPOOLyos", PrinterName.cjitrO, szPort.c_str()); 
WritePronieString("windows n ,"device ,, ,szTemp); 

SendNotifyMessage(HWND_BROADCAST ? WMJWININICHANGE, 0, OL); 

//Close the handle to the printer. 
CiosePrinter(h Printer); 

} 

free(pPrtlnfo); 
return true; 



boo! TPrinterControl::WritePrinterInfo(AnsiString FileToSaveTo) 
{ 

HANDLE hFile; 
DWORD dwBytesWritten; 
DWORD dwServerNameSize, 

dwPrinterNameSize, 

dwShareNameSize, 

dwPortNameSize, 

dwDriverNameSize, 

dwCommentSize, 

dwLocationSize, 

dwSepFileSize, 

dwPrintProcessorSize, 

dwDatatypeSize, 

dwParametersSize, 

dw PortMon itorS ize; 

hFile = CreateFile(FileToSaveTo.c_str(), GENERIC_WRITE, NULL, NULL, 
CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL); 

if ("NULL = hFile) 

Messages->Add("CreateFile() Failed!"); 
return false; 

} 

PortMonitorDescription = GetPortMonitor(SelectedPrinterlnfo->pPortName); 
//Set the port to Local if not recognized. 
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! if (PoitMonitorDescription. IsEmpty()) 
{ 

PortMonitorDescription = "Local Port"; 
SelectedPrinterInfo->pPortNarne = "LPT! :"; 

} 

SetFilePointer(hFile, 0, 0, F1LE_BEGIN); 
//dwServerNameSize 

if (NULL = SeiectedPrinterInfo->pServerName) 

dwServerNameSize = 0; 
else 

dwServerNameSize - strien(SeIectedPrinterInfo->pServer"Name); 
//dwPrinterNameSize 

if ("NULL = SeIectedPrinterInfo->pPrinterName) 

dwPrinterNameSize = 0; 
else 

dwPrinterNameSize - strlen(SelectedPrinterInfo->pPrinterName); 
//dwShareNameSize 

if (NULL = SetectedPrinterInfo->pShareName) 

dwShareNameSize = 0; 
else 

dwShareNarneSize = strlen(SelectedPrinterInfo->pShareName); 
//dwPortNameSize 

if (NULL = SeiectedPrinterInfo->pPortName) 

dwPortNameSize = 0; 
else 

dwPortNameSize = strlen(SeiectedPrinterInfo->pPortName); 
//dwDriverNameSize 

if (NULL = SelectedPrinterlnfo->pDriverName) 

dwDriverNameSize = 0; 
else 

dwDriverNameSize = strlen(Selected Printed nfo->pDri verN am e); 
//dwCommentSize 

if (NULL = SeiectedPrinterlnfo->pComment) 

dwCommentSize = 0; 
else 

dwCommentSize = strien(SelectedPrinterInfo->pComment); 
//dwLocationSize 

if (NULL == SelectedPrinterlnfo->pLocation) 

dwLocationSize = 0; 
else 

dwLocationSize = strlen(SelectedPrinter.Info->pLocation); 
//dwSepFileSize 

if (NULL»^- Selected PrinterInfo->pSepFiIe) 

dwSepFileSize = 0; 
eise 

dwSepFileSize = strlen(SelectedPrinterlnfo->pSepFile); 
I Id w P r i n tP rocessorS i ze 



FIG. 6-22 



"if (NULL — SelectedPrinterInfo->pPrintProcessor) 

dwPrintProcessorSize = 0; 
else 

dwPrintProcessorSize - stiien(SelectedPrinterInfo->pPrintProcessor) 
//dwD'atatypeSize 

if (NULL = SelectedPrinterInfo->pDatatype) 

dwDatatypeSize = 0; 
else 

dwDatatypeSize = strlen(Se!ectedPrinterlnfo->pDatatype); 
//dwParametersSize 

if (NULL — SeIectedPrinterIrifo->pParameters) 

dwParametersSize = 0; 
else 

dwParametersSize = strlen(SelectedPrinterInfo->pParameters); 

//dwPortMonitorSize 

if (PortMonitorDescription.IsEmptyO) 

dwPortMonitorSize = 0; 
else 

dwPortMonitorSize = strlen(PortMonitorDescriptionx_str()); 



//Increment the sizes to account for null terminators. 

dwServerNameSize++; 

d w Pri nterN a m eS i ze-H- ; 

dwShareNameSize-H-; 

dwPortNameSize++; 

dwDriverNarneSize-H-; 

dwCommentSize++; 

dwLocationSize-M-; 

dwSepFileSize-H-; 

dwPrintProcessorSize-H-; 

dwDatatypeSize-Hf; 

d w Param etersS ize++ ; 

dwPortMonitorSize-H-; 

//Write the header. 

//dwSelectedPrinteiinfoSize 
WriteFile(hFi!e, (char*)&SelectedPrintertnfoSize, 
sizeofl[DWORD), &dwBytes Written, NULL); 

//d wSer v erN am e S i ze 

WriteFile(hFile, (char^&dwServerNameSize, 
sizeof(DWORD), &dw Bytes Written, NULL); 

//d w Pr i nterN am eS i ze 

WriteFiie(hFile, (char*)&dwPrinterNameSize, 
sizeof(DWORD), &dwBytes Written, NULL); 



" //dwShareNameSize 
WriteFile(hFile, (char*)&dwShareNameSize, 
sizeof(DWORD), &dwBytesWritten ? NULL); 

//dwPortNameSize 
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.NVriteFilefliFile, (char*)&dwPortNameSize ? 
sizeoflDWORD), &dwBytesWritten, NULL); • 

//dwDriverNameSize 

WriteFiiefhFile, (char*)&dwDriverNarneSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwCoirimentSize 

WriteFiiefhFile. (char*)&dwCommentSize ? 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwLocationSize 

WriteFiiefhFile, (char*)&dwLocationSize, 
sizeoffDWORD), &dwBytesWritten, NULL); 

//dwSepFileSize 

WriteFiiefhFile, (char*)&dwSepFileSize, 
sizeoffDWORD), AdwBytes Written, NULL); 

//dwPrintProcessorSize 

WriteFile(hFile T , (char*)&dwPrintProcessorSize, 
sizeoffDWORD), &dwBytesWritten, NULL); 

//dwDatatypeSize 

WriteFi le(h Fi le, (char*)&d w Datatypes ize, 
sizeoffDWORD), &dwBytesWritten, NULL); 

//dv/ParametersSize 

WriteFi le(h File, (char*)&dwParametersSize, 
sizeoffDWORD), &dwBytes Written, NULL); 

//dwPortMonitorSize 

WriteFiiefhFile, (char*)&dwPortMonitorSize, 
sizeoffDWORD), &dwBytesWritten, NULL); 

//Write the data. 

Z/pServerName 

if (NULL = SelectedPrinterInfo->pServerName) 
WriteFiiefhFile, (char*)™ 
dwServerNameSize, &dwBytesWritten, NULL); 

else 

WriteFiiefhFile, (char*)SelectedPrinterInfo->pServerNaiTie, 
dwServerNameSize, &dwBytesWritten, NULL); 

//pPrinterName 

if (NULL — SelectedPrinterInfo->pPrinterNarne) 
WriteFilefhFile, (char*)"", 
dwPrinterNameSize, &dwBytes Written, NULL); 

else 

WriteFilefhFile, (char*)Se!ectedPrinterInfp->pPrinterName, 
dwPrinterNameSize, &dw Bytes Written, NULL); 

//pShareName 

if (NULL == SelectedPrinterlnfo->pShareName) 
WriteFilefhFile, (char*)"", 
dwShareNameSize, &dwBytesWritten, NULL); 
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. else 

WriteFile(hFiIe, (char*)SelectedPrinterInfo->pShareName, 
dwShareNameSize, &dwBytesWritten, NULL); 

//pPortName 

if (NULL == SeIectedPrinterInfo->pPortName) 
WriteFile(hFile,(char*) M, \ . 
dwPortNameSize, &dwBytesWritteri, NULL); 

else 

WriteFiie(hFile, (char*)SelectedPrinterinfo->pPortName, 
dwPortNameSize, &dwBytesWritten, NULL); 

//pDriverName 

if (NULL == SeIectedPrinterInfo->pDriverName) 
WriteFiIe(hFile, (char*)"", 
dwDriverNameSize, &dwBytesWritten 3 NULL); 

else 

WriteFiIe(hFile, (char*)Se!ectedPrinterInfo->pDriverName, 
dwDriverNameSize, &dwBytesWritten, NULL); 

//pComment 

if (NULL = SelectedPrinterlnfo->pComment) 
WriteFiIe(hFile, (char*)"", 
dwCommentSize, &dwBytesWritten, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinterInfo->pComment, 
dwCommentSize, &dwBytesWritten, NULL); 

//pLocation 

if (NULL = SelectedPrinterInfo->pLocation) 
WriteFiie(hFile, (char*)"", 
dwLocationSize, &dwBytesWritten s NULL); 

else 

WriteFile(hFile, (char*)SeIectedPrinterInfo->pLocation, 
dwLocationSize, &dwBytesWritten, NULL); 

//pSepFile 

if (NULL = SeIectedPrinterlnfo->pSepFiIe) 
WriteFiie(hFile, (char*)"", 
dwSepFileSize, &dw Bytes Written, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinterlnfo->pSepFile, 
dwSepFileSize, &dwBytesWritten, NULL); 

//p Print Processor 

if (NULL = SelectedPrinterInfo->pPrintProcessor) 
WriteFile(hFile, (char*) ,,,, ) 
dwPrintProcessorSize, &dwBytesWritten, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinter!nfo->pPrintProcessor, 
dwPrintProcessorSize, &dw Bytes Written, NULL); 

//pDatatype 

if (NULL == SelectedPrinterlnfo->pDatatype) 
WriteFile(hFNe,(char*) n, \ 
dwDatatypeSize, &dwBytesWritten, NULL); 

else 
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WriteFile(hFile,(char*)SelectedPrinterInfo->pDatatype, 
dwDatatypeSize, &dwBytesWritten, NULL); 

//p Parameters 

if (NULL = SelectedPrinterInfo->pParameters) 
WriteFile(hFi!e,(char*) M, \ 
dwParametersSize, &dw Bytes Written, NULL); 

else 

WriteFiIe(hFile, (char*)SelectedPrinterinfo->pParameters, 
dwParametersSize, &dwBytes Written, NULL); 

//pPortMonitorName 

if (PortMonitorDescription.lsEmptyO) 
WriteFile(hFiie, (char*)"", 
dwPortMonitorSize, &dwBytesWritten, NULL); 

else 

WriteFiie(hFile, (char*)PortMonitorDescriptionx_str(), 
dwPortMonitorSize, &dwBytesWritten, NULL); 

//Attributes 

WriteFiie(hFile, (CHAR*)&SelectedPrinterlnfo->Attributes, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//Priority 

WriteFile(hFile, (char*)&SelectedPrinterInfo->Priority, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//DefauitPriority 

WriteFiIe(hFile, (char*)&SelectedPrinterinfo->DefauItPriority :i 
sizeof(DWORD), &dwBytesWritten, NULL); 

//StartTime 

WriteFile(hFile, (char* )&Selected Printer I nfo->StartTime, 
sizeof(DWORD), &dwBytes Written, NULL); 

//UntilTime 

WriteFile(hFile, (char*)&SelectedPrinterInfo->Unti!Time, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//Status 

WriteFile(hFile, (char*)&SelectedPrinter!hfo->Status, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dobs 

WriteFile(hFile, (char*)&SefectedPrinterlnfo->cJobs; 
sizeof(DWORD), &dwBytesWritten, NULL); 

//AveragePPM 

WriteFile(hFile,(char*)&SelectedPrinterInfo->AveragePPM, 
sizeof(DWORDX &dw Bytes Written, NULL); 

//Now write the DevMode structure. 

//Entire structure size. 

WriteFile(hFile, (char*)&dwDevModeSize, 
sizeof(DWORD), AdwBytes Written, NULL); 
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' //dinSize 

WriteFiIe(hFiIe, (char*)&SelectedPrinterInfo->pDevMode->dmSize, 
sizeof(WORD), &dwBytesWritten, NULL); 

//dmDeviceName[32] 

WriteFile(hFile, (char*)SeleciedPrinterIntb->pDevMode->dmDeviceName, 
CCHDEVICEN AME, &dwBytesWritten, NULL); 

//dmSpecVersion 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmSpecVersion, 
sizeof(WORD), t^wBytesWritten, NULL); 

//dmDriverVersion 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDriverVersion, 
sizeof(WORD), &dw Bytes Written, NULL); 

//dmDriverExtra 

WriteFiie(hFile, (char*)&SelectedPrinter!nfo->pDevMode->dmDriverExtra ) 
sizeof(WORD), &dwBytesWritten, NULL); 

//dmFieids 

WriteFile(hFiie, (char*)&Se!ectedPrinterInfo->pDevMode->dm Fields, 
r,izeof(DWORD), &dwBytesWritten, NULL); 

//dmOrientation 

WriteFile(hFile, (char*)<fcSelectedPrinterInfo->pDevMode->dmOrientation : , 
sizeof(short) ? &dwBytesWritten, NULL); 

//dm PaperS ize 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPaperSize, 
sizeof(short) } &dw Bytes Written, NULL); 

//dmPaperLength 

WriteFile(hFiie, (char * )&S elected Printer I nfo->pDevMode->dm Paper Length, 
sizeofi;short), &dwBytesWritten, NULL); 

//dmPaperWidth 

WriteFile(hFile, (char*)&.Se!ectedPrinterInfo->pDevMode->dmPaperWidth, 
sizeof(short), &dwBytesWritten, NULL); 

//dm Scale 

WriteFile(hFile, (char*)&SelectedPrinterinfo->pDevMode->dmScaIe, 
sizeof[short), &dwBytesWritten, NULL); 

//dmCopies 

WriteFile(hFiie, (char^&SelectedPrinterlnfo^pDevNIode^dmCopies, 
sizeof(short), &dw Bytes Written, NULL); 

//dmDefaultSource 

WriteFiie(hFiie, (char*j&SelectedPrinteiinfo->pDevMode->dmDefaultSource, 
sizeofCshort), &dw Bytes Written, NULL); 

//dinPrintQuality 

WriteFile(hFile, (char^^SelectedPrinterlnfo^pDevMode^dmPrintQuaiity, 
sizeo^short), &dwBytesWritten, NULL); 

//dmCoior 
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• WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmColor, 
sizeof(short), &dwBytesWritten, NULL); 

//dmDuplex 

WriteFi!e(hFiIe, (char*)&SeiectedPrinterInfo->pDevMode->dm Duplex, 
sizeof(short), &dwBytesWritten, NULL); 

//dmYResoiution 

WriteFile(hFile, (char*)(§LSeIectedPrinterInfo->pDevMode->dmYResolution, 
sizeofl[short), &dwBytes Written, NULL); 

//dmTTOption 

WriteFile(hFile., (char*)(&SeIectedPrmterInfo->pDevMode->dmTTOption !l 
sizeof(short), &dwBytesWritten, NULL); 

//dmColIate 

WriteFile(hFile, (char*)<ScSeiectedPrinterInfo->pDevMode->dmColIate, 
sizeof{short), &dwBytesWritten, NULL); 

//dmForm*Name[32) 

WriteFile(hFile, (char*)SelectedPrinterInfo->pDevMode->dmFormName, 
CCHFORMNAME, &dwBytesWritten, NULL); 

//dmBitsPerPel 

WriteFile(hFiie, (char*)&Seiected Printer! n fo->p De v Mod e->dm Bits Per Pel, 
sizeoff USHORT), &dwBytesWritten, NULL); 

//dmPelsWidth 

WriteFile(hFiIe, (char*)&Se!ectedPrinter!nfo->pDevMode->dmPelsWidth 5 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dmPelsHeight 

WriteFile(hFiie, (char*)&SelectedPrinterinfo->pDevMode->dmPeIsHeight, 
sizeof(DWORD), &dw Bytes Written, NULL); 

//dmDisplayFlags 

WriteFiie(hFile, (char' |: )&SeIectedPrinterInfo->pDevMode->dmDisplayFiags, 
sizeof(DWORD) 5 &dwBytesWritten, NULL); 

//dmDisplayFrequency 

WriteFile(hFile, (char*)&SelectedPrinter I nfo->pDevMode->dm Display Frequency, 
sizeof(DWORD), &dwBytes Written, NULL); 

CloseHandle(hFile)r " — - ~ -~ ---- 

return true; 

} 

bool TPrinterControi::ReadPrinterInfo(AnsiString FileToReadFrom) 

f 

\ 

HANDLE hFiie; 
DWORD" dwBytesRead; 
DWORD dwServerNameSize, 

dwPrinterNameSize, 

dwShareNameSize, 

dwPortNameSize, 

dwDriverNameSize, . 
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dwCommentSize, 
dwLocationSize, 
dwSepFileSize, 
dwPrintProcessorSize, 
dwDatatypeSize, 
dwParametersSize, 
dwPoitMonitorSize; 
void *pPortMonitorName; 

hFile = CreateFile(FileToReadFrom.c_str() ? GENERIC_READ, 

FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); 

if (NULL == hFile) 

f 
x 

Messages->Add( n CreateFi!e() Failed!"); 
return false; 

} 

SetFilePointer(hFile, 0, 0, F1LE_BEGIN); 

//PrinterlnfoSize 
SelectedPrinterlnfoSize = 0; 
ReadFiIe(hFile ? (char*)&SelectedPrinterInfoSize, 
sizeof(DWORDX &dwBytesRead, NULL); 

//dwServerNameSize 
dwServerNameSize = 0; 
ReadFile(hFiie, (char*)&dwServerNameSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwPrinterNameSize 
dwPrinterNameSize = 0; 
ReadFile(hFiie :i (char^&dwPrinterNameSize,, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwShareNameSize 
dwShareNameSize = 0; 
ReadFile(hFile, (char*)&dwShareNameSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwPortNameSize 
dwPortNameSize = 0; 
ReadFiIe(hFiie, (char*)&dwPortNameSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwDriverNameSize 
dwDriverNameSize - 0; 
ReadFile(hFile, (char*)&dwDriverNameSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwCoin mentS ize ■ 
dwCommentSize = 0; 

ReadFile(hFiie, (char*)&dwCommentSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dw Location Size 
dwLocationSize = 0; 
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.'! ReadFiIe(hFiie, (char*)&dwLocationSize, 
sizeof[DWORD), ftdwBytesRead, NULL); 

//dwSepFileSize 
dwSepFileSize = 0; 

.ReadFi!e(hFile, (char*)&dwSepFileSize, 
sizeoftDWORD), &dwBytesRead, NULL); 

//dwPrintProcessorSize ' 
dwPrintProcessorSize = 0; 
ReadFiie(hFile, (char*)&dwPrintProcessorSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwDatatypeSize 
dwDatatypeSize = 0; 

Read File(h File, (char*)&dwDatatypeSize, 
sizeof(DWORD), AdwBytesRead, NULL); 

//d w Param etersS ize 
dwParametersSize = 0; 
ReadFile(hFile, (char*)&dwParametersSize, 
sizeof[DWORD), &dwBytesRead, NULL); 

//dwPortMonitorSize 
dwPortMonitorSize = 0; 
ReadFi le(h File, (char*)&d wPortMonitorS ize, 
sizeof(DWORD), &dwBytesRead, NULL); 

free(SelectedPrinterlnfo); 
SelectedPrinterlnfo = NULL; 

SelectedPrinterInfo-(PR!NTER_INFO_2*)mal]oc(SelectedPrinter!nfoSize); 
ZeroMemory(SeIectedPrinterlnfo, Selected Printer Info Size); 

SelectedPrinterInfo->pServerName = NULL; 

SeIectedPrinterInfo->pServerName = (LPTSTR)malloc(dwServerNameSize); 
ZeroMemory(SelectedPrinterInfo->pServerNaine ) dwServerNameSize); 

Selected PrinterInfo->pPrinterName = NULL; 

SelectedPrinterInfo->pPrinterName = (LPTSTR)malloc(dwPrinterNameSize); 
ZeroMemoiy(SelectedPrinterInfo->pPrinterName, dwPrinterNameSize); 

Selected Printerlnfo->pShareNaine = NULL; 

SelectedPrinterlnfo->pShareName = (LPTSTR)mailoc(dwShareNameSize); 
ZeroMemoi7(SelectedPrinterInfo->pShareName > , dwShareNameSize); 

SelectedPrinterlnfo->pPortName = NULL; 

SelectedPrinterInfo->pPortName = (LPTSTR)malloc(dwPortNameSize); 
ZeroMemory(SelectedPrinterinfo->pPortNarne, dwPortNameSize); 

SelectedPrinterlnfo->pDriverName = NULL; 

SelectedPrinterInfo->pDriverName = (LPTSTR)maIloc(dwDriverNameSize); 
ZeroMemory(SelectedPrinterInfo->pDriverName ) dwDriverNameSize); 

SelcctcdPrintcrlnfo->pComment = NULL; 

SelectedPrinterlnfo->pComment = (LPTSTR)malloc(dwCommentSize); 
ZeroMemory(SelectedPrinterlnfo->pComment ) dwCommentSize); 
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SelectedPrinter!nfo->pLocation = NULL; 

SetectedPrinterlnfo->pLocation = (LPTSTR)malloc(dwLocationSize); 
ZeroMemory(SelectedPrinterInfo->pLocation, dwLocationSize); 

SelectedPrinterlnfo->pSepFile = "NULL; 

Selected Printerlnfo->pSepFile = (LPTSTR)malioc(dwSepFiieSize); 
Zero Mem ory(Selected Printer I nfo->pSepFi I e, dwSepFileSize); 

SelectedPrinterInfo->pPrintProcessor = NULL; 

SelectedPrinterlnfo->pPrintProcessor = (LPTSTR)malloc(dwPrintProcessorSize); 
Zero Memory (Selected Printer I nfo->p Print Processor, dwPrintProcessorSize); 

SelectedPrinterInfo->pDatatype = NULL; 

SelectedPrinterlnfo->pDatatype = (LPTSTR)maIloc(dwDatatypeSize); 
ZeroMemory(SelectedPrinterInfo->pDatatype, dw Datatypes ize); 

Selected PrinterInfo->p Parameters = NULL; 

SelectedPrinterlnfo->pParameters = (LPTSTR)malloc(dwParametersSize); 
ZeroMemory^electedPrinterlnfo^pPararneters., dwParametersSize); 

pPortMonitorName = NULL; 
pPortMonitorName = malioc(dwPortMonitorSize); 
ZeroMemory(pPortMonitorName, dwPortMonitorSize); 

Selected Printerinfo->Attributes ; = (DWORD)mailoc(sizeof(DWORD)); 
Selected Printer! nfo-> Attributes = 0; 

Selected Printerlnfo->Priority = (DWORD)malloc(sizeof(DWORD)); 
Selected Printerlnfo->Priority = 0; 

SelectedPrinterInfo->DefaultPriority = (DWORD)malloc(sizeof(DWORD)); 
Se!ectedPrinterinfo->DefaultPriority = 0; 

Se!ectedPrinterlnfo->StartTime = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterlnfo->StartTime = 0; 

SelectedPrinterInfo->UntilTime = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterlnfo->UntilTime = 0; 

SelectedPrinterlnfo->Status = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterInfo->Status = 0; 

SelectedPrinterlnfo->cJobs = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterInfo->cJobs = 0; 

SelectedPrinterInfo->AveragePPM = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterlnfo->AveragePPM = 0; 

//pServerName 

ReadFile(hFiIe, (char*)SelectedPrinterInfo->pServerName, 
dwServerNameSize, &dwBytesRead, NULL); 

//pPrinterName 

ReadFilefliFile, (char*)SeiectedPrinterinfo->pPrinterName, 
dwPrinterNameSize, &dwBytesRead, NULL); 

//pShareNaine 
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ReadFileOiFile, (char*)SelectedPrinterInfo->pShareName, 
dwShareNameSize, &dwBytesRead, NULL); 

//pPortName 

ReadFiie(hFile, (char 5,: )SelectedPrinter!nfo->pPortName, 
dwPortNameSize, &dwBytesRead, NULL); 

Z/pDriverName 

ReadFi!e(hFile, (char*)SeIected Printer! nfo->pDriverName, 
dwDriverNameSize, &dw Bytes Read, NULL); 

//pComment 

ReadFile(hFile, (char*)SeIectedPrinterlnfo->pComment ) 
dwCommentSize, &dwBytesRead, NULL); 

//pLocation 

ReadFile(hFile, (char*)SelectedPrinterlnfo->pLocation, 
dwLocationSize, &dwBytesRead, NULL); 

//pSepFile 

ReadFile(hFiie, (char*)Se!ectedPrinterlnfo->pSepFi!e, 
dwSepFileSize, &dwBytesRead, N 1 'j.l )i-», l)r imr 

//pPrintProcessor 

ReadFile(hFile, (char*)SelectedPrinterInfo->pPrintProcessor ) 
dwPrintProcessorSize, &dw Bytes Read ? NULL); 

//pDatatype 

Read Fi!e(h File, (char*)SelectedPrinterInfo->pDatatype, 
dwDatatypeSize, &dw Bytes Read, NULL); 

//pParameters 

ReadFile(hFile, (char*)SelectedPrinter!nfo->pParameters, 
dwParametersSize, &dwBytesRead, NULL); 

//pPortMonitorName 

ReadFiie(hFi!e, (char*)pPortMonitorName, 

dwPortMpnitorSize, &dwBytesRead, NULL); 
PortMonitorDescription = (char*)pPortMonitorName; 

//Attributes 

ReadFile(hFile, (char*)(&SelectedPrinterlnfo->Attributes, 
sizeof(DWORD), &dwBytesRead, NULL); 

//Priority 

ReadFile(hFiIe, (char*)&Se!ectedPrinteiinfo->Priority, 
sizeof(DWORD), &dwBytesRead, NULL); 

//DefaultPriority 

ReadFile(hFile, (char*)(&-SelectedPrinterInfo->DefaultPriority, 
sizeof(DWORD), &dwBytesRead, NULL); 

//StartTime 

ReadFile(hFile, (char*)&SelectedPrinterlnfo->StartTime, 
sizeof(DWORD), &dwBytesRead, NULL); 

//UntilTime • 
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• ReadFile(hFile, (char*)&SelectedPrinterlnfo->UntilTime, 
sizeof(DWORD), &dwBytesRead, NULL); 

//Status 

ReadFilefhFile, (char*)&.SelectedPrinterlnfo->Status, 
sizeof(DWORD), &dwBytesRead, NULL); 

//cJobs 

ReadFile(hFile, (char*)&SelectedPrinterlnfo->cJobs, 
sizeof(DWORD), fcdwBytesRead, NULL); 

//AveragePPM 

ReadFile(hFile, (char*)<feSeiectedPrinter!nfo->AveragePPM, 
sizeof(DWORD), ftdwBytesRead, NULL); 

//Now read the DevMode Structure size. 
ReadFile(hFile, (char*)&dwDevModeSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//Allocate the DevMode structure members. 
free(SelectedPrinterInfo->pDevMode); 
SelectedPrinterInfo->pDevMode = NULL; 

SelectedPrinterInfo->pDevMode = (DEVMODE*)malloc(dwDevModeSize); 
ZeroMemory(SelectedPrinterInfo->pDevMode, dwDevModeSize); 

ZeroMemory(SelectedPrinterInfo->pDevMode->dmDeviceName, CCHDEVICENAME); 
ZeroMemory(SelectedPrinterlnfo->pDevMode->dmFormName, CCHFORMNAME); 

//dmSize 

SelectedPrinterInfo : >pDevMode->drnSize = 0; 
ReadFile(hFile, (char*)&SelectedPrinter!nfo->pDevMode->dmSize, 
sizeof(WORD), &dwBytesRead, NULL); 

//dmDeviceName[32] 

ReadFiie(hFile, (char*)SelectedPrinterInfo->pDevMode->dmDeviceName 5 
CCHDEVICENAME, &dw Bytes Read, NULL); 

//dmSpecVersion 

SelecfedPrinterlnfo->pDevMode->dmSpecVersion = 0; 
ReadFile(hFiie, (char*)&SelectedPrinterInfo->pDevMode->dmSpec Version, 
sizeof(WORD), &dwBytesRead, NULL); 

//dmDriverVersion 

SeIectedPrinterlnfo->pDevMode->dmDriverVersion = 0; 
ReadFile(hFiie, (char*)&SeiectedPrinterlnfo->pDevMode->dmDriverVersion, 
sizeof(WORD), &dwBytesRead, NULL); 

//dmDriverExtra 

SelectedPrinterInfo->pDevMode->dmDriverExtra = 0; 
ReadFile(hFile, (char*)&SeIectedPrinterInfo->pDevMode->dmDriverExtra, 
sizeofTWORD), &dw Bytes Read, NULL); 

//dmFields 

SelectedPrinterlnfo->pDevMode->dmFields = 0; 
ReadFile(hFile, (char*)(&SelectedPrinterInfo->pDevMode->dmFields, 
sizeof(DWORD), &dwBytesRead, NULL); 
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] //dmOrientation 

SelectedPrintertnfo->pDevMode->dmOrientation = 0; 
ReadFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dmOrientation, 
sizeof(short), &dwBytesRead, NULL); 

//dmPaperSize 

SelectedPrinter!nfo->pDevMode->dmPaperSize = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPaperSize, 
sizeof(short), &dwBytesRead, NULL); 

//dm Paper Length 

SelectedPrinterInfo->pDevMode->dmPaperLength = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPaperLength ? 
sizeoffshort), &dwBytesRead ? NULL); 

//dm Paper Width 

SelectedPrinterInfo->pDevMode->dmPaperWidth = 0; 
ReadFile(hFile, (char*)&SelectedPrinterinfo->pDevMode->dmPaperWidth ;( 
sizeof(short), fedwBytesRead, NULL); 

//dmScale 

SeiectedPrinterlnfo->pDevMode->dmScale = 0; 
ReadFiic(hFiIe, (char*)&SelectedPrinterInfo->pDevMode->dmScale, 
sizeof(short), &dw Bytes Read, NULL); 

//dmCopies 

SeIectedPrinterInfo->pDevMode->dmCopies = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmCopies, 
sizeof(short), &dw Bytes Read, NULL); 

//dmDefaultSource 

SelectedPrinterinfo->pDevMode->dmDefau1tSource = 0; 
Read File(h File, (char*)&SelectedPrinter!nfo->pDevMode->dmDefaultSource, 
sizeof(short), &dwBytesRead, NULL); 

//dmPrintQuality 

SelectedPrinterinfo->pDevMode->dmPrintQuality = 0; 
ReadFiIe(hFile ? (char*)&SeiectedPrinterInfo->pDevMode->dmPrintQuality 5 
sizeof(short), &dwBytesRead, NULL); 

//dm Co lor 

SeIectedPrinterlnfo->pDevMode->dmCoIor = 0; 
ReadFile(hFile, (char*)&SelectedPrinterinfo->pDevMode->dmCoior : , 
sizeof(short), &dw Bytes Read, NULL); 

//dm Duplex 

SelectedPrinterinfo->pDevMode->dmDupiex = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDuplex, 
sizeof(short), &dwBytesRead, NULL); 

//dmYResoIution 

SelectedPrinteiinfo->pDevMode->dmYResolution = 0; 
ReadFile(hFi!e, (char*)&SelectedPrinterlnfo->pDevMode->dmY Resolution, 
sizeoflshort), &.dwBytesRead, NULL); 

//dmTTOption 

SelectedPrinterlnfo->pDevMode->dmTTOption = 0; 
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* ReadFile(hFile ? (char*)&SelectedPrinterlnfo->pDevMode->dmTTOption, 
sizeof(short), &dwBytesRead, NULL); ■ 

//dmColIate 

SelectedPrinterInfo->pDevMode->dmCoilate = 0; 
ReadFi!e(hFile, (char*)cS:Sel ectedPrinter lnfo->pDevMode->dmCollate, 
sizeof(short), fcdwBytesRead, NULL); ^ 

//dmFormNaine[32] 

ReadFile(hFile, (char*)SelectedPrinterInfo->pDevMode->dmFormName, 
CCHFORMNAME, &dwBytesRead, NULL); 

//dmBitsPerPel 

SeIectedPrinterlnfo->pDevMode->dmBitsPerPel = 0; 
ReadFiIe(hFiIe, (char*)&SeIectedPrinterInfo->pDevMode->dmBitsPerPel s 
sizeof{USHORT), AdwBytesRead, NULL); 

//dm Pels Width 

SeiectedPrinter!nfo->pDevMode->dmPelsWidth = 0; 
ReadFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dmPelsWidth, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dmPelsHeight 

SelectedPrinterlnfo->pDevMode->dmPeIsHeight = 0; 
ReadFiIe(hFile, (char*)&SeiectedPrinterInfo->pDevMode->dmPelsHeight, 
sizeof(DWORD), &dw Bytes Read, NULL); 

//dmDisplayFlags 

SelectedPrinterlnfo->pDevMode->dmDispIayFlags = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDisplayFlags, 
sizeofpWORD), &dw Bytes Read, NULL); 

//dm D isp lay Freq uency 

SeIectedPrinterInfo->pDevMode->dmDisplayFrequency = 0; 
ReadFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dm Display Frequency, 
sizeof(DWORD), &dwBytesRead, NULL); 

CloseHandle(hFile); 
free(pPortMonitorName); 
pPortMonitorName = NULL; 

return true; 

} 



bool TPrinterControl::SaveLocalPrinter(AnsiString PrinterToSave, AnsiString SaveName) 

PrinterName = PrinterToSave; 
NewPrinterName = SaveName; 
if (!SaveLocalPrinter()) 
{ 

Messages->Add( n SaveLocalPrinter() Failed!"); 
return false; 

i 

return true; 
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■'bool TPrinterControl::SaveLoca!Printer(AnsiString PrinterToSave) 
{ 

PrinterName = PrinterToSave; 
NewPrinterName = PrinterToSave; 
if(!SaveLocalPrinter()) 

A . . - ,- ^--^ r - L _-,, 

Messages->Add("SaveLocalPririter() Failed!"); 
. return false; 

i 
j 

return true; 

} 



bool TPrinterControl::SaveLocalPrinter() 
{ 

HANDLE hPrinter; 
DWORD dwReturned; 
AnsiString MonitorName; 

NewPrinterName = CleanupFilename(NewPrinterNarne); 
//Open handle to printer. 

\f[ 0 == OpenPrinter(PrinterName.c_strO,&hPrinter,NULL)) 

{ 

. Messages->Add("OpenPrinter() Failed!"); 
return false; 

> 

//Select the default printer. 
if(NULL == hPrinter) 

{ 

Messages->Add("NULL Printer Handle!"); 

} 

// Get the buffer size needed 

GetPrinter(hPrinter,2,NULL,0,&SelectedPrinterInfoSize); 

free(SelectedPrinterlnfo); 

SelectedPrinterInfo = (PRINTER_lNFO_2*)ma!ioc(SeiectedPrinterlnfoSize); 
ZeroMemory(SelectedPrinterInfo, SelectedPrinterlnfoSize); 

//get the printer info 
if (!GetPrinter(hPrinter, 2, (unsigned char*) Selected Printer Info, 
SelectedPrinterlnfoSize, &dw Returned)) 

f 
i 

Messages->Add("GetPrinter() Failed!")* 

} 

//Get the DevMode structure 

dwDevModeSize = DocumentProperties(NULL, hPrinter, 
PrinterName.c_str(), NULL, NULL, 0); 

SelectedPrinterInfo->pDevMode = (PEVMODE*)malloc(dwDevModeSize); 

DocumentProperties(NULL, hPrinter, PrinterName.c_str(), 

SeIectedPrinterlnfo->pDevMode, NULL, DM_OUT_BUFFER); 
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//Close the handle to the printer. 
ClosePrinter(hPrinter); 

SelectedPrinterInfo->pPrinterName = NewPrinterName.c_str(); 
WritePrinterlnfo(PrtInfoPath + "W" + NewPrinterName + ".Prt"); 

TRegTools *RegDump = new TRegTools(H K E Y_LOC A L_M ACH IN E, 
"S YSTEM\\Cul-rentControlSet\\Control\\Print\\Printers\\ ,, + PrinterName + 
"UPrinterDriverData", PrtlnfoPath + "W + NewPrinterName + ".Dev"); 

delete RegDump; 

RegDump = NULL; 

return true; 

} 

bool TPrinterControl::CreateLocalPrinter(AnsiString PrinterToCreate, 
AnsiString NewPrinterToCreate) 

{ 

PrinterName = PrinterToCreate; 
NewPrinterName = NewPrinterToCreate; 
if(!CreateLocalPrinter()) 
{ 

Messages->Add("CreateLocaIPrinterO Failed!"); 
return false; 

} 

return true; 



bool TPrinterControl::CreateLocal Printer(AnsiString PrinterToCreate) 
{ 

PrinterName = PrinterToCreate; 
NewPrinterName = PrinterToCreate; 
if(!CreateLocaiPrinter()) 
{ 

Messages->Add("CreateLocalPrinter() Failed!"); 
return false; 

) 

return true; 

} 

bool TPrinterControl::CreateLocalPrinter(AnsiString PrinterToCreate, 
AnsiString NewPrinterToCreate, TStringList *Users) 

{ 

if (! Users) 
return false; 

PrinterName = PrinterToCreate; 
NewPrinterName = NewPrinterToCreate; 

if (!CreateLocalPrinter()) 
{ 

Messages->Add( ,l CreateLocalPrinter() Failed!"); 
return false; 
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Printer Add AccessRights(NewPrinterName, Users, CONTROL_FULL); 
return true; 

} 

bool TPrinterControl::CreateLocalPrinter() 

{ 

HANDLE hPrinter; 

TStringList *LocaIPrinters = new TStringList; 
int i; 

STEP 400 

//Read in the PRINTER_!NFO_2 structure from file. 

if (!ReadPrinter!nfo(PrtInfoPath + "W" + PrinterName + " Prt")) 

{' 

Messages->Add("Unable to Read Printer File: " + PrinterName); 
return false; 

} 

STEP 410 

SelectedPrinterlnfo->pPrinterName = (LPTSTR)malloc(strlen(NewPrinterName.c_str()) + 1); 
SelectedPrinterInfo->pPrinterName = NewPrinterName.c_str(); 

LocalPrinters = GetLocalPrinters(); 

i = -I; 

while (Local Printers->Count > ++i) 
{ 

if (0 = stricmp(LocaIPrinters->Strings[i].c_str(X NewPrinterName.c_str())) 
{ 

LocalPrinters->Free(); 
return true; 

} 

} 

LocaIPrinters->Free(); 

if (INewPortMonitor.IsEmptyO && !NewPortName.!sEmptyO) 
PortMonitorDescription = NewPortMonitor; 

if (0 == NewPortMonitor.AnsiCompareIC("Client Printer Port")) 
NewPortName = GetIcaClientPort(NewPortName); 

SeIectedPrinterInfo->pPortName = (LPTSTR)maIloc(strlen(NewPortName.c_strO) + 1 ); 
Se!ectedPrinterlnfo->pPortName = NewPortName.c_str();; 

STEP 420 

if (IValidateMonitor(PortMonitorDescription)) 

Messages->Add( M lnvalid Port Monitor: " + PortMonitorDescription); 
return false; 

x 

i 

STEP 430 
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< if (!ValidaiePort(SelectedPrinterlnfo->pPortName, PortMonitorDescription)) 
i 

TRegistry *reg = new TRegistry(); 
reg->RootKey = HKEY_LOCAL_MACHINE; 

if (reg->OpenKey( f, Software\\Microsoft\\Windows NTWCurrentVersionWPorts", false)) 

try 
{ 

reg->WriteString("CLIENT\\LPTI :", nM ); 
reg->WriteString("CLIENT\\LPT2: ,, ) ""); 
reg^WriteString^CLIENTOCOMI :", ,,M ); 
reg^WriteStringC'CLlENTWCOMl:", ""); 

} 

catch(...) 

{ - 

i 
j 

} 

reg->CloseKey(); 
reg->Free(); 

if(!VaiidatePort(SelectedPrinterInfo->pPortName, PortMonitorDescription)) 

N4essages->Add("Invalid Port:"); 
return false; 

} 

} 

STEP 440 

if(!ValidateDriver(SelectedPrinterlnfo->pDriverName)) 
{ 

Messages->Add("Invalid Driver;"); - 
return false; 

} 

STEP 450 
//Add the printer 

hPrinter = AddPrinter(NULL, 2, (unsigned char*)SeiectedPrinterInfo); 

if(MULL = hPrinter) 
{ 

DWORD dwError = 0; 
dwEiror = GetLastError(); 

Messages->Add("FaiIed to Install Printer: " + NewPrinterName + 
" Error Number " + String(dwError)); 
return false; 

} 

STEP 460 

DocumentProperties(NULL, hPrinter, NewPrinterName.c_str(), 
Se!ectedPrinterInfo->pDevMode, SelectedPrinterlnfo->pDevMode, 
DM JN_BUFFER j DM_OUT_BUFFER); 

SetPrinter(hPrinter 5 2, (BYTE*)Se!ectedPrinterInfo, 0); 

ClosePrinter(hPrinter); 
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/ //Write the Device specific DevMode data. Some drivers do not store this 
//in the registry. 

TRegistry *Reg = new TRegistry; 
Reg->RootKey = HKEY_LOCAL_MACHlNE; 

if(Reg->OpenKey( n SYSTEM\\CuiTentControlSet\\Control\\Print\\Printers\\ n + 
NewPrinterName, false)) 

{ 

TRegTools *RegDump = new TRegTools(PrtlnfoPath + "W" + PrinterName + ".Dev", 
H K EY_LOC A L_M ACH IN E, 

"SYSTEMWCurrentControlSetWControlWPrintWPrintersW" + 

NewPrinterName + "WPrinterDriverData"); 
delete RegDump; 
RegDump = NULL; 

} 

Reg->CloseKey(); 
Reg->Free(); 

STEP 470 

PrinterSetCurrentUserOnlyRights(NewPrinterName); 
PrinterAddAccessRights(NewPrinterName, "SYSTEM", CONTROL_FULL); 

SendNotifyMessage(HWND_BROADCAST, WM_DEVMODECHANGE, 0L, 
(LPARAMXLPCSTR)NewPrinterName.c_str()); 



NewPortName = ""; 
NewPortMonitor = ""; 

return true; 

} 

DRIVERJNFOJ3 *TPrinterControl::GetRemoteDriverlnfo(AnsiString ServerName, AnsiString DriverName) 
{ 

DWORD dwSize; 

DWORD dwNeeded; 

DWORD dwReturned; 

DRIVERJNFOJ3 *pDriver!nfoReturn; 

DRIVER JNFO_3 *pDrv = new DRIVER JNFO_3; 

EnumPrinterDrivers(ServerName.c_str() ) NULL, 3, (unsigned char*)pDrv, 
0, &dwSize, &dwReturned); 

pDrv = (DRIVER JNFOJ*)malloc(dwSize); 
ZeroMemory(pDrv, dwSize); 

if (!EnumPrjnterDrivers(ServerName.c_str(), NULL, 3, (unsigned char^pDrv, 
dwSize, &dwNeeded, &dwReturned)) 

{ . ' " 

Messages->Add( M EnumPrinterDrivers() Failed!"); 

\ 

int i = - 1 ; 

while ((int)dwReturned > 
{ 
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if (0 = stricmp((const char*)DriverNarne.c_str(), 
(const char*)pDrv[i].pName)) . 

{ 

pDriverlnfoReturn = &pDrv[i]; 
break; 

j 

i 
i 

if ((int)dwReturned <= i) 
return NULL; 

return pDriverlnfoReturn; 

} 



TStringList *TPrinterControl::CopyDriverFiles(TStringList *SourceFiles) 
{ 

AnsiString LocalDriverDir; 

AnsiString DestFileName; 

TStringList *ReturnStrings = new TStringList; 

BYTE *pTemp; 

DWORD dwBufferSize; 

DWORD dwBytesNeeded; 

int i; 

dwBufferSize = 1024; 

pTemp = (BYTE*)maIIoc(dwBufferSize); 

if (0 = GetPrinterDriverDirectory(NULL, NULL, K pTemp, dwBufferSize, 
&dwBytesNeeded)) 
return ERROR; 

LocalDriverDir = (char*)pTemp; 
Local DriverDir= LocalDriverDir + "\\"; 



while (SourceFiles->Count > 
{ 

DestFileName = LocalDriverDir + 
ExtractFiIeName(SourceFiIes->Strings[i]); 

::CopyFile(SourceFiles->Strings[i].c_str(), DestFileName.c_str(), NULL); 
ReturnStrings->Add(DestFileName); 

i 

free(pTemp); 
return ReturnStrings; 

} 

bool TPrinterControl::ValidateMonitor(AnsiString MonitorName) 

{ 

MONITORJNFO_2 *pLocaiMonitors = new MONITOR JNFO_2; 
DWORD dwSize; 
DWORD dwBytesNeeded; 
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• DWORD dwRetumed; 
int i; 

if (0 = MonitorName.AnsiCornpareIC( M Client Printer Port")) 
t 

return true; 

> 

//Get the memory needed. 

EnumMonitors(NULL, 2, NULL, 0, &dwSize, &dwReturned); 
pLocalMonitors = (MONITQRJNFO_2*)maIloc(dwSize); 

if (EnumMonitors(NULL, 2, (unsigned char*)pLocalMonitors, dwSize, &dwBytesNeeded, 
&dwReturned)) 

{ 

' = -!; 

while ((int)dwReturned > ++i) 
r 

if (0 == stricmp(MonitorName.c_str(), pLocaIMonitors[i].pName)) 
break; 

} 

} 

if (i >= (int)dwReturned || 0 >= dwReturned) 
{ 

free(pLocalMonitors); 
return false; 

} 

free(pLocaiMonitors); 
return true; 

} 

bool TPrinterControl::ValidatePort(AnsiString PortName, AnsiString PortMonitor) 
H INSTANCE hLib; 

PORT_INFO_l *pLoca!Ports = new PORTJNFOJ ; 

PORTJNFOJ Portlnfo; 

DWORD dwSize; 

DWORD dwReturned; 

DWORD dwBytesNeeded; 

int i; 

EnumPorts(NULL, 1, (unsigned char*)pLocalPorts, 0, &dwSize, &dwReturned); 
pLocalPorts = (PORTJNFOJ *)malloc(dwSize); 

EnumPorts(NULL, 1, (unsigned char*)pLocalPorts, dwSize, &dwBytesNeeded, &dwReturned); 
i = -l; 

while ((int)dwReturned > ++i) 
< 

if (0 = stricmp(PortName.c_str(), pLocalPorts[i].pName)) 
break; 

} 

free(pLocalPorts); 
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- ' //We found the port, 
if ((int)dw Returned > i) 
return true; 

hLib = LoadLibrary("winspooi.drv M ); 

if(NULL==hLib) 
return false; 

ADDPORTEX pfnAddPortEx = (ADDPORTEX)GetProcAddress(hLib, "AddPortExA"); 

Portlnfo.pName = PorfName.c_str(); 

if (pfnAddPortEx) 
r 

if(!(*pfnAddPortEx)(NULL, I, (unsigned char*)&PortInfo, 
(WCHAR*)PortMonitorDescription.c_str())) 

{ 

FreeLibrary(hLib); 
return false; 

} 

} 

FreeLibrary(hLib); 
return true; 

} 

bool TPrinterControl::ValidateDriver(AnsiString DriverName) 

DRIVER JNFOJ *pRemoteDriver; 
DRIVERJNFOJ NewLocal Driver! nfo; 
TStringList *LocalDrivers = new TStringList; 
TStringList *DriverFiiesToCopy = new TStringList; 
TStringList *CopiedDriverFiles = new TStringList; 
int i; 
int j; 
int nPos; 

int NulITerminatorsFound; . 
BYTE *pTemp; 

DWORD dwBufferSize = 1024; 
LocalDrivers = GetLocaIDrivers(); 
i = -l; 

while (LocaIDrivers->Count > -H-i) 
{ 

if (0 = stricmp(LocalDrivers->Strings[i].c_str(), DriverName.c_str())) 

Local Drivers->Free(); 
return true; 

j 

pRemoteDriver = GetRemoteDriverlnfo(SourceServerName, DriverName); 

if (NULL == pRemoteDriver) 
return false; 
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DriverFilesToCopy->Add(pRemoteDriver->pDriverPath); 
DriverFilesToCopy->Add(pRemoteDriver->pDataFile); 
DriverFiIesToCopy->Add(pRemoteDriver->pConfigFile); 
DriverFiiesToCopy->Add(pRemoteDriver->pHeipFile); 



NuIITerminatorsFound = 0; 

pTemp = (BYTE*)malloc(dwBufferSize); 

ZeroMemory(pTemp, dwBufferSize); 

while (++i < (int)dwBufferSize && 2 > NuIITerminatorsFound) 
{ 

if ('\0' == pRemoteDriver->pDependentFiles[i]) 
{ 

DriverFilesToCopy->Add((char*)pTemp); 
ZeroMemory(pTemp, dwBufferSize); 

NullTerminatorsFound*f+; 
continue; 

■ } 

pTemp[++j] = pRemoteDriver->pDependentFiles[i]; 

} 

CopiedDriverFiles = CopyDriverFiles(DriverFilesToCopy); 

NewLocalDriverlnfo.cVersion = pRemoteDriver->cVersion; 
NewLocaiDriverlnfo.pName = pRemoteDriver->pName; 
NewLocalDriverlnfo.pEnvironment = pRemoteDriver->pEnvironment; 
NewLocalDriverinfo.pMonitorName = pRemoteDriver->pMonitorName; 
NewLocalDriverInfo.pDefaultDataType = pRemoteDriver->pDefaultDataType; 

NewLocalDriverlnfo.pDriverPath = Copied DriverFiles->Strings[++i].c_strO; 

NewLocalDnverInfo.pDataFile = CopiedDriverFiIes->Strings[++i].c_str(); 
NewLocalDriverInfo.pConfigFiIe = Copi^ 

NewLocalDriverlnfo.pHelpFiie = CopiedDriverFiles->Stringsf++i].c_str(); 

NewLocalDriverinfo.pDependentFiles = (char*)malloc(dwBufferSize); 
ZeroMemory(NewLocalDriverInfo.pDepende.ntFiles, dwBufferSize); 
nPos = -l; 

while (CopiedDriverFiles->Count > ++i) 
{ 

j-0; 

while(CopiedDriverFiles->Strings[i].LengthO >== ++j) 
NewLocalDriverInfo.pDependentFi!es[++nPos]=CopiedDriverFiIes->Strings[i][j]; 

NewLocalDriverlnfo.pDependentFiles[++hPos] = '\0'; 
NewLocalDriverInfo.pDependentFiles[++nPos] = '\0*; 
if (!AddPrinterDriver(NULL, 3, (unsigned char*)&NewLocalDriver!nfo)) 

delete pRemoteDriver; 
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pRemoteDriver = NULL; 
LocalDrivers->Free(); 
return false; 



delete pRemoteDriver; 
pRemoteDriver = NULL; 
Local Drivers->Free(); 



return true; 



bool TPrinterControl::PrinterSetOwnerOnlyRights(AnsiString PrinterName) 



HANDLE 

PRINTERJ3EFAULTS 

LPPRINTERJNFOJ 

PACCESS_ALLOWED_ACE 

PSID 

PACL 

DWORD 

BOOL 



hPrinter = NULL; 

pd Printer; 

pPrinterlnfo = NULL; 



dwBytesNeeded; 
bOwnerDefaulted; 



pTempAce; 
psidOwner; 
pPrinterNewACL; 



// Assign desired access level to PRINTERJ3EAFULTS 
pdPrinter. Desired Access = PRINTER_ALL_ACCESS; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open the printer and add the User 

if (0 !- OpenPrinter(PrinterName.c_strO,&hPrinter,&pdPrinter)) 

{ 

//Get the required value of dwBytesNeeded. And allocate the memory for pPrinterlnfo. 

GetPrinter(hPrinter,3,(LPBYTE)pPrinterInfo 5 0,&dwBytesNeeded); 

pPrinterlnfo = (LPPRINTER_!NFO_3)malIoc(dwBytesNeeded); 

//Get the actual printer stuff and add the ACE to the DACL. 

if(0 !=GetPrinter(hPrinter ? 3,(LPBYTE)pPrinterlnfo ? dwBytesNeeded,&dwBytesNeeded)) 



//Multiply by 2 to get the size needed for 2 ACEs. 

DWORD dwSize = sizeof(ACL) + 2*(sizeof(ACCESS_ALLOWED_ACE) + 
GetLengthSid(psidOwner) - sizeof(DWORD)); 

pPrinterNewACL = (PACL)malloc(dwSize); 
InitiaiizeAcl(pPrinterNewACL, dwSize, ACL_REVISION); 

pTempAce = (PACCESS_ALLOWED>CE)malloc(sizeof(ACCESS_ALLOWED_ACE)); 

//For some reason, there are 2 ACEs for "Full Control".Add the ACEs. 

AddAccessAllowedAce(pPrinterNewACL ) ACL_REVISION > GENERIC_ALL,psidOwner); 
if(0 ! = GetAce(pPrinterNewACL ? pPrinterNewACL->AceCount- 



if (GetSecurityDescriptorOwner(pPrinterfnfo- 
>pSecurityDescriptor,&psidOwner ? &bOwnerDefauIted)) 



U(LPVOID*)&pTempAce)) 



pTempAce->Header.AceFlags = OBJECTJNHERIT_ACE | 
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„*INHER1T_0NLY_ACE; 



AddAccessAllowedAcetpPrinterNewACUACL^REVISION.PRINTER^ALL^ACCESS^sidOwner); 

if (0 != GetAce(pPrinterNewACUpPrinterNewACL->AceCount -,(LPVOID*)&pTernpAce)) 
pTempAce->Header.AceFlags = CONTAINERJNHERIT_ACE; 



InitializeSecurityDescriptor(pPrinterlnfo->pSecurity Descriptor, 
SECURITY J)ESCRIPTOR_REVISION); 

SetSecurityDescriptorDaci(pPrinterInfo->pSecurityDescriptor,TRUE, 
pPrinterNewACUFA LSE); 

SetPrinter(hPrinter ? 3 J (LPBYTE)pPrinter!nfo,0); 



free(pPrinterlnfo); 

} 

else 
return false; . 

//Close the printer. 
ClosePrinter(hPrinter); 

return true; 

} 



bool TPrinterControl::PrinterSetCurrentUserOnlyRights(AnsiString PrinterName) 

{ 



HANDLE 

PRiNTERJDEFAULTS 
LPPR INTER JNFOJ3 
PACCESS„ALLOWED_ACE 
// PSfD 

PSI D psidCurrentUser; 
PACL 
DWORD 

DWORD dwSizeDomain = 256: 

BOOL 

char szUserName[256]; 
char szDomainControIler[256]; 
char szDomainName[256]; 
PSID_NAME_USE peUse; 



hPrinter = NULL; 

pd Printer; 

pPrinterlnfo = NULL; 
pTempAce; 
psidOwner; 

pPrinterNewACL; 

dwBytesNeeded = 0; 

bOwnerDefaulted; 



// Assign desired access level to PRINTER_DEAFULTS 
pdPrinter.DesiredAccess = PRINTER_ALL_ACCESS; 
pdPrinter.pDevMode = NULL; 
pdPrinter.p Datatype = NULL; 

//Open the printer and add the User 

if (0 != Open Printer(PrinterName.c_str(X&hPrinter,&pd Printer)) 
{ 

//Get the required value of dwBytesNeeded. And allocate the memory for pPrinterlnfo. 

GetPrinter(hPrinter ) 3 s (LPBYTE)pPrinterInfo,0 ) &dwBytesNeeded); 

pPrinterlnfo = (LPPR!NTERJNFO_3)ma!loc(dwBytesNeeded); 
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//Get the actual printer stuff and add the ACE to the DACL. 

if (0 != GetPrinter(hPrinter3XLPBYTE)pPrinterInfo,dwBytesNeeded,&dwBytesNeeded)) 
{ 

strcpy(szDomainControlier, getenv("LOGONSERVER")); 
strcpy(szUserName, getenvf'USERNAME")); 
strcpy(szDomainName, getenv("USERDOMAIN")); 

dwBytesNeeded = 0; 
dwSizeDoinain = 256; 

Lookup AccountName(szDomainController, szUserName, psidCurrentUser, 
&dwBytesNeeded, szDomainName, &dwSizeDomain, peLIse); 

peUse = (PSID_NAME_USE)malloc(sizeof(SiD_NAME_USE)); ' 
psidCurrentUser = (PSID)malloc(dwBytesNeeded); 

if (LookupAccountName(szDomainControlIer, szUserName, psidCurrentUser, 
&dwBytesNeeded, szDomainName, &dwSizeDomain, peUse)) 
{ 

//Multiply by 2 to get the size needed for 2 ACEs. 

DWORD dwSize = sizeof(ACL) + 2*(sizeof(ACCESS_ALLOWED_ACE) + 
GetLengthSid(psidCurrentUser) - sizeof(DWORD)); 

pPrinterNewACL = (PACL)malloc(dwSize); 
InitiaIizeAcI(pPrinterNewACL > dwSize, ACL_REVISION); 

pTempAce = (PACCESS_ALLOWED_ACE)malloc(sizeof(ACCESS_ALLOWED_ACE)); 

//For some reason, there are 2 ACEs for "Full Contror.Add the ACEs. 

AddAccessAIIowedAce(pPrinterNewACL > ACL_REVISION 5 GENERlC_ALL,psidCurrentUser); 

if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 

I ? (LPVOID*)&pTempAce)) 

pTempAce->Header.AceFIags = OBJECT_INHERIT_ACE | 

IN H E R I T_ON L Y_AC E ; 

AddAccessAIIowedAce(pPrinterNewACL,ACL_REVISION,PRINTER_ALL_ACCESS,psidCurrentUser); 

if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 

ULPVOID*)&pTempAce)) 

pTempAce->Header.AceFlags = CONTAiNER_INHERIT_ACE; 

InitializeSecurityDescriptorCpPrinterlnfo^pSecurityDescriptor:, 
SECURITY J3ESCRIPTOR_REVISION); 

SetSecurityDescript6rDacl(pPrinterlnfo->pSecurityDescriptor,TRUE, 
pPrinterNewACLFALSE); 



SetPrinterChPrinter^XLPBYTEJpPrinterlnfo^O); 



} 

free(pPrinterlnfo); 



eise 
return false; 



//Close the printer. 
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CiosePrinter(hPrinter); 
return true; 

bool TPrinterControl::PrinterAddAccessRights(AnsiString PrinterName, TStringList * Users, int nAccess) 
{ 

inti = -I; 

while (Users->Count > ++i) 
{ 

PrinterAddAccessRights(PrinterName, Users->Strings[i], nAccess); 

i 

return true; 

} 



bool TPrinterControl::PrinterAddAccessRights(AnsiString PrinterName, AnsiString UserName, int nAccess) 
{ 

ACL_SIZEJN FORMATION ACLInformation; 

PRINTER_DEFAULTS pdPrinter; 

LPPRINTERJNFOJ pPrinterlnfo - NULL; 

PACCESS_ALLOWED_ACE pTempAce; 

HANDLE hPrinter = NULL; 

PACL pPrinterACL; 

PACL pPrinterlMewACL; 

DWORD dwBytesNeeded; 

BOOL bDaclPresent = FALSE; 

BOOL bDac!Defaulted = FALSE; 

int i; 

//Used for LookupAccountName(). 
PSID psidUserName; 
PSIDJMAMEJJSE peUse; 
char szDomainName[256]; 
DWORD dwSizeDomain = 256; 

// Assign desired access level to PRINTERJ3EFAULTS 
pdPrinter.DesiredAccess = PRINTER_ALL_ACCESS; 
pdPrinter.pDevMode = NULL; 
pdPrinter. p Datatype = NULL; 



//Let's get the SID of the user. 
dwSizeDomain = 256; 
dwBytesNeeded = 0; 

LookupAccountNaine(NULL, UserName.c_str(), psidUserName, &dwBytesNeeded, 
szDomainName, &dwSizeDomain, peUse); 

peUse = (PSID^NAME_USE)maIloc(sizeof(SID_NAME__USE)); 
psidUserName - (PSID)malloc(dwBytesNeeded); 

if (0 = LookupAccoiintName(NULL, UserName.c_str(), psidUserName, &dwBytesNeeded, szDomainName; 
&dwSizeDomain, peUse)) 
{ 
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free(peUse); 
free(psidUserName); 

return false; 

} 



//Open the printer and add the User 

if (0 != OpenPrinter(PrinterName.c_str(),&hPrinter,&pdPrinter)) 
{ 



//Get the required value of dwBytesNeeded. And allocate the memory for pPrinterlnfo. 

GetPrinter(hPrinter,3 ? (LPBYTE)pPrinterinfo,0,&dwBytesNeeded); 

pPrinterlnfo = (LPPRfNTER_INFO_3)malioc(dwBytesNeeded); 

//Get the actual printer stuff and add the ACE to the DACL. 

if (0 != GetPrinter(hPrinter,3,(LPBYTE)pPrinterlnfo,dwBytesNeeded,&dwBytesNeeded)) 
{ 

//Get printer ACL 

GetSecurityDescriptorDacl(pPrinterInfo->pSecurityDescriptor,&bDaclPresent ; 
&pPrinterACL,&bDaclDefaulted); 

// Get the number of entries in the ACL 

GetAclInfomiation(pPrinterACL 5 &ACLInformation,sizeof(ACLInformation), 
AclSizelnformation); 



//.Multiply by 2 to get the size needed for 2 ACEs. 

. DWORD dwSize = pPrinterACL->AclSize + 2*(sizeof(ACCESS_ALLOWED_ACE) + 
GetLengthSid(psidUserName) - sizeof(DWORD)); 

pPrinterNewACL = (PACL)malloc(dwSize); 

Initial izeAc!(pPrinterNewACL, dwSize, ACL_REVISION); 

//Copy the old ACL's ACEs to the new ACL. 

pTempAce - (PACCESS_ALLOWED_ACE)malioc(sizeofi[ACCESS_ALLOWED_ACE)); 

while (pPrinterACL->AceCount > ++i) 
{ 

if (0 != GetAce(pPrinterACL, i,(LPVOID*)&pTempAce)) 

AddAce(pPrinterNewACL, ACL_REVISION, MAXDWORD, pTempAce, 

pTempAce->Header.AceSize); 

}. 

switch(nAccess) 
{ 

case(CONTROL_FULL): 

//For some reason, there are 2 ACEs for "Full Contro!".Add the ACEs. 

AddAccessAI!owedAce(pPrinter7MewACL 1 ACL_REVISIOHGENERIC_ALL ? psidUserName); 

if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 

l,(LPVOID*)&pTempAce)) 

pTempAce->Header.AceFlags = OBJECTJNHERIT_ACE | 

INHERIT ONLY ACE; • 



AddAccessAllowedAce(pPrinterNewACL J ACL_REV(SION,PRINTER_ALL_ACCESS ) psidUserName); 

if (0 != GetAceCpPrinterNewACL^pPrinterNewACL^AceCount 
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, !,(LPVOID*)&pTempAce)) 

P TernpAce->Header.AceFIags = CONTAIN ER_1NHERIT_ACE; ■ 

break; 

default: 

break; 

.} 

lnitializeSecurityDescriptor(pPrinterlnfo- 
>pSecurityDescriptor,SECURITY_DESCRIPTOR_REVIS10N); 

SetSecurityDescriptorDacl(pPrinterIrifo->pSecurity 

SetPrinter(hPrinter,3,(LPBYTE)pPrinterlnfo,0); 

} 

free(pPrinterinfo); 

free(peUse); 
} 

else 

return false; 

//Close the printer. 
C losePrinter(h Printer); 

return true; 

} 

bool TPrinterControi::RemapPort(AnsiString Port, AnsiString Monitor) 

{ 

if (PoitlsEmptyO || Monitor. IsEmptyO) 
{ 

Messages->Add( n Unable to remap Port!"); 
return false; 

} 

NewPortName = Port; 
NewPortMonitor = Monitor; 

return true; 

} 

TStringList*TPrinterControl::GetConfigFileList() 
{ 

TStringList *ConfigFiles = new TStringList; 
TStringList *FiIenames = new TStringList; 
int i; 

EnumerateFiIes(PrtInfoPath, Filenames, false, NULL); 

i = :U 

while (Filenames->Count > ++i) 

{ . 
Filenames->Strings[i] = JustFiienameL(Filenames->Strings[i]); 

//Check for dots. 

if (0 == Fiienames->Strings[i].AnsiCompareIC(". n ) || 
0 == Firenames->Strings[i].AnsiCompareIC( M ..")) 
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• { 

continue; 

} 

FiIenames->Strings[i] = FiIenames->Strings[i].SubString( 
1, (Filenames->Strings[i].Length() - 4)); 

if (0 > ConfigFiies->IndexOf(Filenames->Strings[i]) && 
!Fiienames->Strings[i].IsEmpty()) 

{ 

ConfigFiles->Add(Filenames->Strings[i]); 

} 

\ 
) 

Filenames->Free(); ■ " 

return ConfigFiles; 

} 

TStringList *TPrintei-Control::LoadPrinterInfoFromFile(AnsiString PrinterName) 

{ 

TStringList *PrinterInfo = new TStringList; 
An si String Returned PrinterName; 
AnsiString ReturnedPortName; 
AnsiString ReturnedPortMonitorName; 



if (!ReadPrinterInfo(PrtInfoPath + "W" + PrinterName + ".Pit")) 
{ 

Messages->Add("Error reading Printerlnfo from file!"); 

} 

ReturnedPrinterName = SelectedPrinterInfo->pPrinterName; 
ReturnedPortName = SeiectedPrinterInfo->pPortName; 

ReturnedPortMonitorName = GetPortMonitor(SeIectedPrinterInfo->pPortName); 

PrinterInfo->Add(RetiirnedPrinterName); 

PrinterInfo->Add(ReturnedPortName); 

Printerlnfo->Add(ReturnedPortMonitorName); 

return Printerlnfo; 

i 

bool TPrinterControI::PrinterPropertiesDiaIog(AnsiString PrinterName, HANDLE hWnd) 
{ 

HANDLE hPrinter; 
DWORD dwNeeded, dwRetumed; 
PRINTER_INFO_2* pPrtinfo; 
PRINTER_DEFAULTS pdPrinter; 

// Assign desired access level to PRINTER_DEAFULTS 
pdPrinter.Desi'redAccess = PRINTER_ALL_ACCESS; 

pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!OpenPrinter(PrinterName.c_str() 5 &hPrinter, &pdPrinter)) 



FIG. 6-51 



Messages->Add("OpenPrinterO Failed!"); 
return false; 

} 

//Select the default printer. 
if(NULL!=hPrinter){ 

// Get the buffer size needed 
GetPrinter(hPrinter J 2,NULL,0,&dwNeeded); 

pPrt!nfo=(PRINTERJNFO_2*)maIloc(dwNeeded); 
ZeroMemory(pPrtinfo, dwNeeded); 

//get the printer info 

GetPrinter(hPrinter,2,(unsigned char*)pPrtInfo,dwNeeded,&dwReturned); 
if (!PrinterProperties(hWnd, hPrinter)) 

{ 

Messages->Add("PrinterProperties() Failed!"); 

ClosePrinter(hPrinter); 
free(pPrtlnfo); 
return false; 

} 

//Close the handle to the printer. 
ClosePrinter(h Printer); 

} 

free(pPrtinfo); 
return true; 

} 

bool TPrinterControl::DeleteLocalPrinter(AnsiString PrinterName) 
{ 

HANDLE hPrinter; 
PRINTERDEFAULTS pdPrinter; 

//Assign desired access level to PRINTER_DEAFULTS 
pdPrinter.DesiredAccess = PRINTER_ALL_ACCESS; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!OpenPrinter(PrinterMame.c_str() ) &hPrinter, &pdPrinter)) 

{ 

Messages->Add("DeletePrinter() Failed!"); 
return false; 

} 

//Select the default printer. 
if(NULL = hPrinter) 

{ 

Messages->Add( n DeletePrinter() Failed! NULL Handle."); 
return false; 

} 
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* SetPrinter(hPrinter, 0, NULL, PRINTER_CONTROL_PURGE); . 
Sleep(250); 

DeletePrinter(hPrinter); 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 

return true; 

} 

bool TPrinterControI::DeletePrinterConfig(AnsiString PrinterConfigName) 
{ 

, AnsiString PrinterConfigPath; 
bool bReturn = true; 



PrinterConfigPath = PrtlnfoPath + "\V + PrinterConfigName; 

if (FileExists(PrinterConfigPath + ".Pit") && . 
FileExists(PrinterConfigPath + B .Dev H )) 

{ 

if (!De!eteFiIe(PrinterConfigPath + n .Prt") || 
!DeleteFile(PrinterConfigPath + ".Dev")) 

{ 

bReturn = false; 

} 

} 

else 
{ 

Messages->Add("Fi!esNot Found: " + PrinterConfigPath); 
bReturn = false; 

} 

return bReturn; 

} 

AnsiString TPrinterControl::GetPrinterShareName(AnsiString PrinterName) 
{ 

HANDLE hPrinter; 

DWORD dwNeeded, dwReturned; 

PRINTERJNFOJ2* pPrtlnfo; 
PRINTER_DEFAULTS pdPrinter; 
AnsiString ShareName; 
AnsiString ServerName; 
AnsiString Full ShareName; 

// Assign desired access level to PRINTER_DEAFULTS 
pdPrinter.DesiredAccess = PRINTER_ACCESS_USE; 
pdPrintep.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer, 

if(!OpenPrinter(PrinterNamex_str(), &hPrinter, &pdPrinter)) 

{ 

Messages->Add("OpenPrinter() Failed!"); 
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. return ""; 

i 
i 

//Select the default printer. 
if(NULL!=hPrinter){ 

// Get the buffer size needed 
GetPrinter(hPrinter s 2,NULL,0 3 &dw]Meeded); 

pPi1InfoKPRlNTER_(NFO_2*)malloc(dwNeeded); 
ZeroMemory(pPrtInfo, dwNeeded); 

//get the printer info 

. GetPrinter(hPrinter,2,(unsigned char*)pPrtlnfo,dwNeeded,&dwReturned); 

ShareNarne = pPrtlnfo->pShareName; 
ServerName = pPrtlnfo->pServerName; 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 

} 

free(pPrtlnfo); 

if (ServerName. Is Em ptyQ) 

FuliShareName = ShareName;. 
else 

FuliShareName = ServerName + "W" + ShareName; 
return FuliShareName; 



AnsiString TPrinterControl::GetPrinterFullName(AnsiString PrinterName) 
{ 

HANDLE hPrinter; 

DWORD dwNeeded, dwReturned; 

PRINTERJNFO_2* pPrtlnfo; 
PRINTERJDEFAULTS pdPrinter; 
AnsiString FullName; 

- // Assign desired access level to PRINTER_DEAFULTS 
pdPrinter. DesiredAccess = PRfNTER_ACCESSJJSE; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!0penPrinter(PrinterNamex_str(), &hPrinter, &pdPrinter)) 

{ ; 

Messages->Add("OpenPrinter() Failed!"); 
return ""; 

} 

//Select the default printer. 
if(NULL!=hPrinter){ 
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//Get the buffer size needed * 
GetPrinter(hPrinter,2,NULL s 0 s &dwNeeded); 

pPrtInfo=(PRINTER_INFO_2*)malIoc(dwNeeded); 
ZeroMemory(pPrtlnfo, dwNeeded); . 

//get the printer info 

GetPrintei<hPrinter,2 s (unsigned char*)pPrtInfo,dwNeeded,&dwReturned); 
FuliName = pPrtlnfo->pPrinterName; 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 

} 

free(pPrtlnfo); 
return FuliName; 

} 



bool TPrinterControI::ClearNetworkPrinters() 
{ 

DWORD dwBytesNeeded; 
DWORD dwPrtRet; 
LPPRINTER_INFO_4 pPrtlnfo; 
int i=0; 

//Get the memory needed for structure. 
EnumPrinters(PRINTER_ENUM_CONN 

//A I locate the memory for the structure. 

pPrtlnfo =(LPPRINTER_INFO_4)malloc(dwBytesNeeded); 

//Enumerate the printers, 
if 

(!EnumPrinters(PRINTER_ENUM_CONNECTI^ &dwPrtR 
et)) . " ' 

return false; 

//Delete the printer connection, 
for (i = 0; i < (int)dwPrtRet; 

DeletePrinterConnection((pPrtlnfo++)->pPrinterName); 

return true; 

} 



bool TPrinterControl::SeticaPrinterRights() 
{ 

TStringList * Local PrinterList = new TStringList; 

PRINTER JNFOJ2 *lnstalIedPrinterInfo = new PRINTER JNFO_2; 

DWORD InstalledPrinterlnfoReturned; 

DWORD dwSize; 

DWORD dwNeeded; 

AnsiString Comment; 

AnsiString PrinterNairie; 
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int i; 

EnumPrinters(PRINTER_ENUM_LOCAL, NULL, 2,(BYTE*)lnsta!IedPrinterInfo, 
0, &dwSize, &InstalledPrinterInfoReturned); 

InstalledPrinterlnfo = (PRINTERJNFO_2*)malioc(dwSize); 
ZeroMemory(lnstalledPrinterInfo, dwSize); 

if (!EnumPrinters(PRlNTERJENUM_LOCAL, NULL, 2,(BYTE*)InstalledPrinterInfo, 
dwSize, &dwNeeded, & InstalledPrinterlnfo Returned)) 

{ 

' return false; 

i 



while ((int)lnstaiiedPrinterinfoReturned > 
{ 

.PrinterName = InstalledPrinterlnfo[i].pPrinterName; 

Comment = InstailedPrinterlnfo[i].pComment; 

if (0 <Comment.AnsiPos("Auto Created Client Printer")) 

{ 

PrinterSetOwnerOnlyRights(PrinterName); . 

PrmterAddAccessRights(PrinlerName, "SYSTEM", CONTROL FULL)- 

} 

} 

free(InstalledPrinterlnfo); 
return true; 

} 

boo! TPrinterControl::CopyConfiguration(AnsiString Source, AnsiString Destination) 

A ns [String PrinterCon flgSourcePath ; 
AnsiString PrinterConfigDestPath; 

PrinterConfigSourcePath = PrtlnfoPath + "\\" + Source; 
PrinterConfigDestPath - PrtlnfoPath + "W" + Destination; 

if (FileExists(PrinterConfigSourcePath + ".Prr") && 
FileExists(PrinterConfigSourcePath + ".Dev")) 

{ 

if (0 = ::CopyFiie(String(PrinterConflgSourcePath + ".Prt M ).c_str(), 
String(PrinterConfigDestPath + "^Prt").c_str() 3 NULL)) 

return false; 

} 

if (0 = ::CopyFile(String(PrinterConfigSourcePath + n .Dev ,, )x_str(), 
String(PrinterConfigDestPath + M .Dev").c_str(), NULL)) 

DeieteFile(PrinterConflgDestPath + ".Prt"); 
return false; - " 

} 

} 

else 

{ 

Messages->Add("Files Not Found: " + PrinterConfigSourcePath); 
return false; 
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return true; 

} 

bool TPrinterControl::SaveLocalDriver(AnsiString DriverName) 

{ 

AnsiString PrinterName; " 
HANDLE hPrinter; 

PrinterName = n PMPAdmin# H + DriverName; 
SelectedPrinterInfo->pPrinterName = PrinterName.c_str(); 
SelectedPrinterlnfo->pPortName = "LPT1 :"; 
SelectedPrinterlnfo->pDriverNa.me = DriverName.c_str(); 
SelectedPrinterInfo->pPrintProcessor = "winprint"; 

//Add the printer 

hPrinter = AddPrinter(NULL, 2, (unsigned char*)SelectedPrinterinfo); 

if (NULL = hPrinter) 
return false; 

CiosePrinter(hPrinter); 
hPrinter = NULL; 

if (!SaveLocalPrinter(PrinterName, DriverName)) 
{ 

DeleteLocalPrinter(PrinterName); 
return false; 

DeleteLocalPrinter(PrinterNarne); 
return true; 

} 



AnsiString TPrinterControI::CleanupFilename(AnsiString Filename) 

{ • 
inMndex; 
int i; 

TStringList *InvalidList = new TStringList; 

if (Filename.lsEmptyO) 
return Filename; 

InvaIidList->Add( M \\ M ); 
lnvaIidList->Add(7 M ); 
InvalidList->Add(": n ); 
InvalidList->Add("?"); 
InvaiidList->Add("*"); 



while (lnvaiidList->Count > ++i) 
{ 

Index = Filename.AnsiPos(lnvalidList->Strings[i]); 
if (0 < Index) 

{ 
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. Filename.Dele(e(lndex, 1); 

Filename = CleanupFilename(Filename); 

} 

} 

return Filename; 

} 

AnsiString TPnnterControI::GetIcaClientPort(AnsiString OldPort) 
i 

int BackSlash = 0; 
AnsiString NewPort; 
AnsiString Port; 

BackSlash = OldPort AnsiPosO'W'); 

Port = OldPort.SubString( (BackSlash + 1), 
(OidPort.Length() - BackSlash) ); 

NewPort - "ClientW" + String(getenv("CLIENTNAME M )) + "#\\ n + Port; 



" return NewPort; 

) 

PRINTER JNFO_2 *TPrinterControl::GetPrinterinfo2(AnsiString PrinterName) 

{ 

HANDLE h Printer; 
DWORD dwNeeded, dwRetumed; 
PRINTER_INFO_2* pPrtlnfo; 
PRINTER_DEFAULTS pdPrinter; 

// Assign desired access level to PRINTER_DEAFULTS 
pdPrinter.DesiredAccess = PRINTER_ACCESSJJSE; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!OpenPrinter(PrinterNamex_strO, &hPrinter, &pdPrinter)) 

{ 

return NULL; 

} 

. //Select the default printer. 
iT(>JULLNhPrinter){ 

// Get the buffer size needed 
GetPrintei-(hPrinter,2,NULL,0,&dwNeeded); 

-pPrtInfo=(PRINTER_iNFO_2*)ma1Ioc(dwNeeded); 
ZeroMemory(pPrtInfo, dwNeeded); 

//get the printer info 

GelPrinter(hPrinter,2,(unsigned char*)pPrtInf6,dwNeeded,&dwReturned); 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 
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return pPrtlnfo; 

} 



AnsiString TPrinterControl::GetStatusString(DWORD dwStatus) 
{ 

AnsiString Status; 

switch(dwStatus) 
{ 

case(PRINTER_STATUS_BUSY): 
Status = "Busy"; 
break; 

case(PRINTER_STATUS_DOOR_OPEN): 
Status = "Door Open"; 
break; 

ease(PRINTER_STATUS_ERROR): 
Status = "Error"; 
break; 

case(PRINTER_STATUSJN!TIALIZING): 
Status = "Initializing"; 
break; 

case(PRINTER_STATUS_IO_ACTIVE): 
Status = "I/O Active"; 
break; 

case(PRINTER_STATUS_MANUAL_FEED): 
Status - "Manual Feed"; 
break; 

case(PRINTER_STATUS_NO_TONER): 
Status = "No Toner"; 
break; 

case(PRINTER_STATUS_NOT_AVAILABLE): 

Status = "Not Available"; 
break; 

case(PRINTER_STATUS_OFFLINE): 
Status = "Offline"; 
break; 

case(PRINTER_STATUS_OUT_OF_MEMORY): 
Status = "Out of Memory"; 
break; 

case(PRINTER_STATUS_OUTPUT_BIN_FULL): 
Status = "Output Bin Full"; 
break; 

case(PRINTER_STATUS_PAGE_PUNT): 
Status = "Page Punt"; 
break; 

case(PRINTER_STATUS_PAPER_JAM): 
Status = "Paper Jam"; 
break; 

case(PRINTER_STATUS_PAPER_OUT): 
Status = "Paper Out"; 
break; 

case(PRINTER_STATUS_PAPER_PROBLEM): 
Status = "Paper Problem"; 
break; 

case(PRINTER_STATUS_PAUSED): 
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. Status = "Paused"; 
break; 

case(PRINTER_STATUS_PEND!NG_DELETION): 
Status = "Pending Deletion"; 
break; 

case(PRINTER_STATUS_POWER_SAVE): 
Status = "Power Save"; 
break; 

case(PR!NTER_STATUS_PRlNTIlsiG): 
Status = "Printing"; 
break; 

case(PRINTER_STATUS_PROCESSING): 
Status = "Processing"; 
- break; 

case(PRIMTER__STATUS_SERVER_UNKNOWN): 
Status = "Server Unknown"; 
break; 

case(PRINTER_STATUS_TONER_LOW): 
Status = "Toner Low"; 
break; 

case(PRINTER_STATUS_USER_INTERVENTION): 
Status = "User Intervention"; 
break; 

case(PRINTER_STATUS_WAITING): 
Status - "Waiting"; 
t ■ break; 

case(PRINTER_STATUS_WARMING_UP): " 

Status -"Warming Up"; 

break; 
default: 

Status = "Ready"; 

break; 



return Status; 
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